22 lines
438 B
Plaintext
22 lines
438 B
Plaintext
(define-module math
|
|
:exports
|
|
(pi tau pow sqrt)
|
|
|
|
(define pi 3.1415)
|
|
(define tau (* 2 pi))
|
|
(define (pow a b) (** a b))
|
|
(define (sqrt a) (** a 0.5)))
|
|
|
|
(assert (= math::pi 3.1415))
|
|
(assert (= math::tau (* 2 math::tau)))
|
|
|
|
|
|
;; (tdefine-module 'math
|
|
;; :exports
|
|
;; '(pi tau pow sqrt)
|
|
|
|
;; '(define pi 3.1415)
|
|
;; '(define tau (* 2 pi))
|
|
;; '(define (pow a b) (** a b))
|
|
;; '(define (sqrt a) (** a 0.5)))
|