4 lines
76 B
Scheme
4 lines
76 B
Scheme
(do ((n 1024 (quotient n 2)))
|
|
((<= n 0))
|
|
(display n)
|
|
(newline))
|