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

4 lines
117 B
Common Lisp
Raw Blame History

(let ((f (lambda (x) (if (= x 0) 0 (g (- x 1)))))
(g (lambda (x) (if (= x 0) 1 (f (- x 1))))))
(= (f 10) 0))
Reference in New Issue View Git Blame Copy Permalink