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

8 lines
166 B
Common Lisp
Raw Blame History

(define test (lambda (f x)
(if (f x)
x
(test f (- x 1)))))
(= (test (lambda (x) (< x 0)) 2) -1)
Reference in New Issue View Git Blame Copy Permalink