RosettaCodeData/Task/Loops-While/Cache-ObjectScript/loops-while.cos
2019-09-12 10:33:56 -07:00

8 lines
134 B
Text

WHILELOOP
set x = 1024
while (x > 0) {
write x,!
set x = (x \ 2) ; using non-integer division will never get to 0
}
quit