RosettaCodeData/Task/Loops-N-plus-one-half/Common-Lisp/loops-n-plus-one-half-2.lisp
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
83 B
Common Lisp

(loop for i from 1 upto 10 do
(princ i)
(if (= i 10) (return))
(princ ", "))