7 lines
91 B
Plaintext
7 lines
91 B
Plaintext
(export sqr f)
|
|
|
|
(define (sqr x) (* x x))
|
|
|
|
(define (f x y z)
|
|
(+ (sqr x) (sqr y) (sqr z)))
|