10 lines
152 B
Text
10 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
|
|
]
|