bldc/benchmarks/dec_cnt1.lisp

7 lines
87 B
Common Lisp
Raw Normal View History

(define dec-cnt (lambda (x)
(if (= x 0) 0 (dec-cnt (- x 1)))
))
(dec-cnt 100000)