thesis-lisp/mod2.vml

7 lines
91 B
Plaintext
Raw Normal View History

2021-04-07 22:24:33 +03:00
(export sqr f)
2021-04-07 16:19:30 +03:00
2021-04-07 22:24:33 +03:00
(define (sqr x) (* x x))
(define (f x y z)
(+ (sqr x) (sqr y) (sqr z)))