bldc/benchmarks/tail_call_200k.lisp

7 lines
71 B
Common Lisp

(define f (lambda (n)
(if (= n 0) ()
(f (- n 1)))))
(f 200000)