12 lines
346 B
Scheme
12 lines
346 B
Scheme
#lang scheme/base
|
|
(require '#%flfxnum)
|
|
|
|
(provide fl+ fl- fl* fl/
|
|
flabs flsqrt flexp fllog
|
|
flsin flcos fltan flasin flacos flatan
|
|
flfloor flceiling flround fltruncate
|
|
fl= fl< fl<= fl> fl>= flmin flmax
|
|
->fl
|
|
flvector? flvector make-flvector
|
|
flvector-length flvector-ref flvector-set!)
|