19 lines
479 B
Plaintext
19 lines
479 B
Plaintext
/* NetRexx */
|
|
options replace format comments java crossref savelog symbols nobinary
|
|
|
|
bval = [1, 0, 5, 'a', 1 == 1, 1 \= 1, isTrue, isFalse]
|
|
|
|
loop b_ = 0 for bval.length
|
|
select case bval[b_]
|
|
when isTrue then say bval[b_] 'is true'
|
|
when isFalse then say bval[b_] 'is false'
|
|
otherwise say bval[b_] 'is not boolean'
|
|
end
|
|
end b_
|
|
|
|
method isTrue public static returns boolean
|
|
return (1 == 1)
|
|
|
|
method isFalse public static returns boolean
|
|
return \isTrue
|