RosettaCodeData/Task/Loops-While/ArkScript/loops-while.ark
2026-04-30 12:34:36 -04:00

6 lines
97 B
Text

(import std.Math :floor)
(mut n 1024)
(while (> n 0) {
(print n)
(set n (floor (/ n 2))) })