10 lines
323 B
Text
10 lines
323 B
Text
(let* ((x 2.0)
|
|
(xi 0.5)
|
|
(y 4.0)
|
|
(yi 0.25)
|
|
(z (lambda () (f+ x y))) ;; z is obviously function
|
|
(zi (f/ 1 z))) ;; also a function
|
|
(flet ((multiplier (a b) (op f* @1 (f* a b))))
|
|
(each ((n (list x y z))
|
|
(v (list xi yi zi)))
|
|
(prinl [[multiplier n v] 42.0]))))
|