5 lines
75 B
Text
5 lines
75 B
Text
|
(let N 1024
|
||
|
|
(while (gt0 N)
|
||
|
|
(println N)
|
||
|
|
(setq N (/ N 2)) ) )
|