RosettaCodeData/Task/Loops-For/Common-Lisp/loops-for-2.lisp

5 lines
72 B
Common Lisp

(dotimes (i 5)
(dotimes (j (+ i 1))
(write-char #\*))
(terpri))