4 lines
98 B
Text
4 lines
98 B
Text
|
(set! n 1024)
|
||
|
|
(while (> n 0) (write n) (set! n (quotient n 2)))
|
||
|
|
1024 512 256 128 64 32 16 8 4 2 1
|