mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
Merge branch 'master' of github.com:ashinn/chibi-scheme
This commit is contained in:
commit
05ee42804a
2 changed files with 11 additions and 2 deletions
|
@ -17,8 +17,8 @@
|
|||
(define fl- -)
|
||||
(define fl* *)
|
||||
(define fl/ /)
|
||||
(define flmax max)
|
||||
(define flmin min)
|
||||
(define (flmax . args) (if (null? args) -inf.0 (apply max args)))
|
||||
(define (flmin . args) (if (null? args) +inf.0 (apply min args)))
|
||||
(define (flabsdiff x y) (abs (- x y)))
|
||||
(define flnumerator numerator)
|
||||
(define fldenominator denominator)
|
||||
|
|
|
@ -95,4 +95,13 @@
|
|||
(test -0.781212821 (flsecond-bessel 1 1.))
|
||||
(test 0.842700793 (flerf 1.))
|
||||
(test 0.157299207 (flerfc 1.))
|
||||
(test #t (< 0.0
|
||||
fl-least
|
||||
fl-epsilon
|
||||
1.0
|
||||
(+ 1.0 fl-epsilon)
|
||||
fl-greatest
|
||||
+inf.0))
|
||||
(test +inf.0 (flmin))
|
||||
(test -inf.0 (flmax))
|
||||
(test-end))))
|
||||
|
|
Loading…
Add table
Reference in a new issue