Changeset 10169


Ignore:
Timestamp:
10/20/05 12:49:09 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/math-tests.lisp

    r10166 r10169  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: math-tests.lisp,v 1.2 2005-10-19 16:51:43 piso Exp $
     4;;; $Id: math-tests.lisp,v 1.3 2005-10-20 12:49:09 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    249249;; EXPT
    250250(deftest expt.1
    251   (expt -5f0 2)
     251  (expt -5.0f0 2)
    252252  25.0)
    253253
    254254(deftest expt.2
    255   (expt -5f0 2f0)
     255  (expt -5.0f0 1.9f0)
     256  #c(20.241808 -6.576964))
     257
     258(deftest expt.3
     259  (expt -5.0f0 2.0f0)
    256260  #+(or abcl cmu sbcl) 25f0
    257261  #+allegro            #c(25.0               -6.1230318e-15)
     
    259263  #+lispworks          #c(24.999999999999993 -6.123031769111885e-15))
    260264
    261 (deftest expt.3
    262   (expt -5d0 2d0)
     265(deftest expt.4
     266  (expt -5.0f0 2.1f0)
     267  #c(27.928223 9.074421))
     268
     269(deftest expt.5
     270  (expt -5.0d0 1.9d0)
     271  #+(or abcl allegro) #c(20.24180952239008d0  -6.576962601219341d0)
     272  #+clisp             #c(20.241809522390078d0 -6.576962601219342d0)
     273  #+(or cmu sbcl)     #c(20.241809522390078d0 -6.57696260121934d0))
     274
     275(deftest expt.6
     276  (expt -5.0d0 2.0d0)
    263277  #+(or abcl cmu sbcl) 25d0
    264278  #+allegro            #c(24.999999999999996d0 -6.1230317691118855d-15)
    265279  #+clisp              #c(25d0                 0d0))
    266280
    267 (deftest expt.4
     281(deftest expt.7
     282  (expt -5.0d0 2.1d0)
     283  #+allegro            #c(27.92822499968966d0  9.074430383223417d0)
     284  #+clisp              #c(27.928224999689668d0 9.074430383223435d0)
     285  #-(or allegro clisp) #c(27.92822499968967d0  9.07443038322342d0))
     286
     287(deftest expt.8
    268288  (expt -5 2)
    269289  25)
    270290
    271 (deftest expt.5
     291(deftest expt.9
    272292  (eql (expt 5f0 3f0) (* 5.0 5.0 5.0))
    273293  t)
    274294
    275 (deftest expt.6
     295(deftest expt.10
    276296  (expt 5f0 3f0)
    277297  125f0)
    278298
    279 (deftest expt.7
     299(deftest expt.11
    280300  (expt 5d0 3d0)
    281301  125d0)
    282302
    283 (deftest expt.8
     303(deftest expt.12
    284304  (expt 5 3)
    285305  125)
    286306
    287 (deftest expt.9
     307(deftest expt.13
    288308  (expt #c(10 11) 1)
    289309  #c(10 11))
    290310
    291 (deftest expt.10
     311(deftest expt.14
    292312  (expt 0 1/2)
    293313  #+(or allegro clisp lispworks) 0
    294314  #+(or abcl cmu sbcl) 0.0)
    295315
    296 (deftest expt.11
     316(deftest expt.15
    297317  (expt 1 1/2)
    298318  #+clisp 1
    299319  #-clisp 1.0)
    300320
    301 (deftest expt.12
     321(deftest expt.16
    302322  (expt 9 1/2)
    303323  #+clisp 3
    304324  #-clisp 3.0)
    305325
    306 (deftest expt.13
     326(deftest expt.17
    307327  (expt -9 1/2)
    308   #+clisp
    309   #c(0 3)
    310   #+(or allegro sbcl cmu)
    311   #c(1.8369095e-16 3.0)
    312   #+abcl
    313   #c(1.8369701e-16 3.0))
    314 
    315 (deftest expt.14
     328  #+clisp                 #c(0             3)
     329  #+(or allegro sbcl cmu) #c(1.8369095e-16 3.0)
     330  #+abcl                  #c(1.8369701e-16 3.0))
     331
     332(deftest expt.18
    316333  (expt -8 1/3)
    317334  #c(1.0 1.7320508))
    318335
    319 (deftest expt.15
     336(deftest expt.19
    320337  (expt #c(-7 24) 1/2)
    321338  #+clisp #c(3 4)
    322339  #-clisp #c(3.0 4.0))
    323340
    324 (deftest expt.16
     341(deftest expt.20
    325342  (expt 729 1/6)
    326343  #+clisp 3
    327344  #-clisp 3.0)
    328345
    329 (deftest expt.17
     346(deftest expt.21
    330347  (expt -3 -1)
    331348  -1/3)
    332349
    333 (deftest expt.18
     350(deftest expt.22
    334351  (expt #c(3 4) -1)
    335352  #c(3/25 -4/25))
    336353
    337 (deftest expt.19
     354(deftest expt.23
    338355  (expt 14 #c(1.0 1.0))
    339   #-(or clisp allegro)
    340   #c(-12.269101 6.743085)
    341   #+(or clisp allegro)
    342   #c(-12.269099 6.7430854))
     356  #-(or clisp allegro) #c(-12.269101 6.743085)
     357  #+(or clisp allegro) #c(-12.269099 6.7430854))
    343358
    344359(deftest log.1
     
    358373(deftest log.4
    359374  (log 17.0 10.0)
    360   #+(or abcl cmu sbcl)   1.2304488
     375  #+(or abcl cmu sbcl) 1.2304488
    361376  #+(or allegro clisp) 1.230449
    362   #+lispworks           #.(log 17d0 10d0))
     377  #+lispworks          #.(log 17d0 10d0))
    363378
    364379(deftest log.5
Note: See TracChangeset for help on using the changeset viewer.