4 lines
70 B
Common Lisp
4 lines
70 B
Common Lisp
(let (i 1024)
|
|
(while (> i 0)
|
|
(println i)
|
|
(setq i (/ i 2))))
|