11 lines
152 B
Text
11 lines
152 B
Text
|
REBOL [
|
||
|
|
Title: "Loop/While"
|
||
|
|
URL: http://rosettacode.org/wiki/Loop/While
|
||
|
|
]
|
||
|
|
|
||
|
|
value: 1024
|
||
|
|
while [value > 0][
|
||
|
|
print value
|
||
|
|
value: to-integer value / 2
|
||
|
|
]
|