Changeset 10169
 Timestamp:
 10/20/05 12:49:09 (16 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/j/src/org/armedbear/lisp/tests/mathtests.lisp
r10166 r10169 2 2 ;;; 3 3 ;;; Copyright (C) 2005 Peter Graves 4 ;;; $Id: mathtests.lisp,v 1. 2 20051019 16:51:43piso Exp $4 ;;; $Id: mathtests.lisp,v 1.3 20051020 12:49:09 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 249 249 ;; EXPT 250 250 (deftest expt.1 251 (expt 5 f0 2)251 (expt 5.0f0 2) 252 252 25.0) 253 253 254 254 (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) 256 260 #+(or abcl cmu sbcl) 25f0 257 261 #+allegro #c(25.0 6.1230318e15) … … 259 263 #+lispworks #c(24.999999999999993 6.123031769111885e15)) 260 264 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) 263 277 #+(or abcl cmu sbcl) 25d0 264 278 #+allegro #c(24.999999999999996d0 6.1230317691118855d15) 265 279 #+clisp #c(25d0 0d0)) 266 280 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 268 288 (expt 5 2) 269 289 25) 270 290 271 (deftest expt. 5291 (deftest expt.9 272 292 (eql (expt 5f0 3f0) (* 5.0 5.0 5.0)) 273 293 t) 274 294 275 (deftest expt. 6295 (deftest expt.10 276 296 (expt 5f0 3f0) 277 297 125f0) 278 298 279 (deftest expt. 7299 (deftest expt.11 280 300 (expt 5d0 3d0) 281 301 125d0) 282 302 283 (deftest expt. 8303 (deftest expt.12 284 304 (expt 5 3) 285 305 125) 286 306 287 (deftest expt. 9307 (deftest expt.13 288 308 (expt #c(10 11) 1) 289 309 #c(10 11)) 290 310 291 (deftest expt.1 0311 (deftest expt.14 292 312 (expt 0 1/2) 293 313 #+(or allegro clisp lispworks) 0 294 314 #+(or abcl cmu sbcl) 0.0) 295 315 296 (deftest expt.1 1316 (deftest expt.15 297 317 (expt 1 1/2) 298 318 #+clisp 1 299 319 #clisp 1.0) 300 320 301 (deftest expt.1 2321 (deftest expt.16 302 322 (expt 9 1/2) 303 323 #+clisp 3 304 324 #clisp 3.0) 305 325 306 (deftest expt.1 3326 (deftest expt.17 307 327 (expt 9 1/2) 308 #+clisp 309 #c(0 3) 310 #+(or allegro sbcl cmu) 311 #c(1.8369095e16 3.0) 312 #+abcl 313 #c(1.8369701e16 3.0)) 314 315 (deftest expt.14 328 #+clisp #c(0 3) 329 #+(or allegro sbcl cmu) #c(1.8369095e16 3.0) 330 #+abcl #c(1.8369701e16 3.0)) 331 332 (deftest expt.18 316 333 (expt 8 1/3) 317 334 #c(1.0 1.7320508)) 318 335 319 (deftest expt.1 5336 (deftest expt.19 320 337 (expt #c(7 24) 1/2) 321 338 #+clisp #c(3 4) 322 339 #clisp #c(3.0 4.0)) 323 340 324 (deftest expt. 16341 (deftest expt.20 325 342 (expt 729 1/6) 326 343 #+clisp 3 327 344 #clisp 3.0) 328 345 329 (deftest expt. 17346 (deftest expt.21 330 347 (expt 3 1) 331 348 1/3) 332 349 333 (deftest expt. 18350 (deftest expt.22 334 351 (expt #c(3 4) 1) 335 352 #c(3/25 4/25)) 336 353 337 (deftest expt. 19354 (deftest expt.23 338 355 (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)) 343 358 344 359 (deftest log.1 … … 358 373 (deftest log.4 359 374 (log 17.0 10.0) 360 #+(or abcl cmu sbcl) 375 #+(or abcl cmu sbcl) 1.2304488 361 376 #+(or allegro clisp) 1.230449 362 #+lispworks 377 #+lispworks #.(log 17d0 10d0)) 363 378 364 379 (deftest log.5
Note: See TracChangeset
for help on using the changeset viewer.