RosettaCodeData/Task/Loops-While/Vedit-macro-language/loops-while-1.vedit
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
58 B
Text

#1 = 1024
while (#1 > 0) {
Num_Type(#1)
#1 /= 2
}