rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_tailrec_0.lisp

4 lines
69 B
Common Lisp
Raw Blame History

(define f (lambda (n) (if (= n 0) 0 (f (- n 1)))))
(= (f 100000) 0)
Reference in New Issue View Git Blame Copy Permalink