bldc/benchmarks/loop_200k.lisp

5 lines
60 B
Common Lisp

(loop ( (n 200000) )
(> n 0)
(setq n (- n 1)))