RosettaCodeData/Task/Loops-While/Fennel/loops-while.fennel

5 lines
60 B
Fennel

(var n 1024)
(while (> i 0)
(print i)
(set i (// n 2)))