RosettaCodeData/Task/Loops-For/Common-Lisp/loops-for-2.lisp
2023-07-01 13:44:08 -04:00

4 lines
72 B
Common Lisp

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