root/trunk/orca/tests/working/control.r

REBOL [
    Purpose: "Test flow control natives"
]


a: 3

either a = 3 [print "three"][print false]

print while [a > 0] [print a a: a - 1]

a: [none false false 0]
print until [ b: first a  print b  a: next a do b ]
a: [false false false 5]
print until [ b: first a  print b  a: next a do b ]

a: [1 2 3]
forall a [print a/1]
probe a


a: 'orig
input: [1 2 3 "hi"]
foreach a input [ print a ]         ; simple test
foreach a input [
    if not integer? a [break]       ; test break
    print a
]
print a                             ; confirm private context


input: [do %file 'little 12]
foreach [a b c] input [print [a b c]]

input: {William}
foreach [a b c] input [print [a b c]]