bldc/tests/test_lambda_10.lisp

11 lines
173 B
Common Lisp

(define f (lambda ()
(lambda (n)
(if (= n 0)
42
((f) (- n 1))
))))
(check (= ((f) 1) 42))