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

4 lines
66 B
Scheme

(do ((i 10 (- i 1)))
((< i 0))
(display i)
(newline))