RosettaCodeData/Task/Loops-While/ArkScript/loops-while.ark

7 lines
97 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
(import std.Math :floor)
(mut n 1024)
(while (> n 0) {
(print n)
(set n (floor (/ n 2))) })