RosettaCodeData/Task/Loops-Downward-for/Common-Lisp/loops-downward-for-2.lisp
2023-07-01 13:44:08 -04: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