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

6 lines
92 B
Common Lisp
Raw Blame History

(define dec-cnt2 (lambda (x)
(match x (0 0) (_ (dec-cnt2 (- x 1))))
))
(dec-cnt2 100000)
Reference in New Issue View Git Blame Copy Permalink