7 lines
106 B
Common Lisp
7 lines
106 B
Common Lisp
|
(do ((i 1 (+ i 1)))
|
||
|
|
((> i 5))
|
||
|
|
(do ((j 1 (+ j 1)))
|
||
|
|
((> j i))
|
||
|
|
(write-char #\*))
|
||
|
|
(terpri))
|