RosettaCodeData/Task/Loops-Do-while/Common-Lisp/loops-do-while-2.lisp
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
78 B
Common Lisp

(loop with val = 0
do (print (incf val))
until (= 0 (mod val 6)))