RosettaCodeData/Task/Loops-For-with-a-specified-step/Common-Lisp/loops-for-with-a-specified-step-2.lisp
2020-02-17 23:21:07 -08:00

3 lines
172 B
Common Lisp

(do ((n 0 (incf n (+ (random 3) 2)))) ; Initialize to 0 and set random step-value 2, 3 or 4
((> n 20)) ; Break condition
(print n)) ; On every loop print value