4 lines
210 B
Text
4 lines
210 B
Text
block([n], n: 1024, while n > 0 do (print(n), n: quotient(n, 2)));
|
|
|
|
/* using a C-like loop: divide control variable by two instead of incrementing it */
|
|
for n: 1024 next quotient(n, 2) while n > 0 do print(n);
|