bldc/tests/test_let_8.lisp

12 lines
269 B
Common Lisp

(define f (let ((x 200))
(let ((y 100))
(lambda (n)
(let ((a 4))
(let ((b 5))
(let ((c 6))
(if (= n 0) (+ x y a b c) (f (- n 1))))))))))
(check (= (f 100000) 315))