RosettaCodeData/Task/Loops-Downward-for/Common-Lisp/loops-downward-for-2.lisp
2020-02-17 23:21:07 -08:00

3 lines
162 B
Common Lisp

(do ((n 10 (decf n))) ; Initialize to 0 and downward in every loop
((< n 0)) ; Break condition when negative
(print n)) ; On every loop print value