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

8 lines
120 B
Common Lisp

(use-package :iterate)
(iter
(for i from 1 to 5)
(iter
(for j from 1 to i)
(princ #\*))
(terpri))