mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
ce97808201
The following constants were missing from Chibi's SRFI-144 implementation: fl-1/e fl-e-pi/4 fl-1/log-2 fl-log-3 fl-log-pi fl-1/log-10 fl-2pi fl-pi-squared fl-degree fl-gamma-1/2 fl-gamma-1/3 fl-gamma-2/3
55 lines
2.5 KiB
Scheme
55 lines
2.5 KiB
Scheme
(define-library (srfi 144)
|
|
(import (chibi)
|
|
(rename (srfi 141)
|
|
(floor/ flfloor/)
|
|
(floor-quotient flfloor-quotient)
|
|
(floor-remainder flfloor-remainder)
|
|
(ceiling/ flceiling/)
|
|
(ceiling-quotient flceiling-quotient)
|
|
(ceiling-remainder flceiling-remainder)
|
|
(truncate/ fltruncate/)
|
|
(truncate-quotient fltruncate-quotient)
|
|
(truncate-remainder fltruncate-remainder)
|
|
(round/ flround/)
|
|
(round-quotient flround-quotient)
|
|
(round-remainder flround-remainder)
|
|
(euclidean/ fleuclidean/)
|
|
(euclidean-quotient fleuclidean-quotient)
|
|
(euclidean-remainder fleuclidean-remainder)
|
|
(balanced/ flbalanced/)
|
|
(balanced-quotient flbalanced-quotient)
|
|
(balanced-remainder flbalanced-remainder)))
|
|
(export
|
|
fl-e fl-1/e fl-e-2 fl-e-pi/4 fl-log2-e fl-log10-e fl-log-2
|
|
fl-1/log-2 fl-log-3 fl-log-pi fl-log-10 fl-1/log-10 fl-pi
|
|
fl-1/pi fl-2pi fl-2/pi fl-pi/2 fl-pi/4 fl-pi-squared fl-degree
|
|
fl-sqrt-pi fl-2/sqrt-pi fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10
|
|
fl-1/sqrt-2 fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi
|
|
fl-1/log-phi fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-gamma-1/2
|
|
fl-gamma-1/3 fl-gamma-2/3 fl-greatest fl-least fl-epsilon
|
|
fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
|
|
|
|
flonum flonum? fl=? fl<? fl>? fl<=? fl>=? flodd? fleven?
|
|
flunordered? flinteger? flzero? flpositive? flnegative?
|
|
|
|
fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff
|
|
flnumerator fldenominator
|
|
|
|
fladjacent flcopysign flsgn make-flonum flinteger-fraction
|
|
flexponent flinteger-exponent flnormalized-fraction-exponent
|
|
sign-bit flfinite? flinfinite? flnan? flnormalized? fldenormalized?
|
|
flabs flposdiff flfloor flceiling flround fltruncate
|
|
|
|
flexp flexp2 flexp-1 flsquare flsqrt flcbrt flhypot flexpt fllog fllog1+
|
|
fllog2 fllog10 flsin flcos fltan flasin flacos flatan
|
|
flsinh flcosh fltanh flasinh flacosh flatanh flremquo
|
|
flgamma flloggamma flfirst-bessel flsecond-bessel flerf flerfc
|
|
|
|
flfloor/ flfloor-quotient flfloor-remainder
|
|
flceiling/ flceiling-quotient flceiling-remainder
|
|
fltruncate/ fltruncate-quotient fltruncate-remainder
|
|
flround/ flround-quotient flround-remainder
|
|
fleuclidean/ fleuclidean-quotient fleuclidean-remainder
|
|
flbalanced/ flbalanced-quotient flbalanced-remainder)
|
|
(include-shared "144/math")
|
|
(include "144/flonum.scm"))
|