RosettaCodeData/Task/Loops-For/Scheme/loops-for.ss
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
114 B
Scheme

(do ((i 1 (+ i 1)))
((> i 5))
(do ((j 1 (+ j 1)))
((> j i))
(display "*"))
(newline))