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

3 lines
99 B
Common Lisp
Raw Blame History

(check (let ((fib (lambda (n) (if (> 2 n) n (+ (fib (- n 1)) (fib (- n 2))))))) (= (fib 10) 55)))
Reference in New Issue View Git Blame Copy Permalink