langs a-z

Task/Boolean-values/NetRexx/boolean-values.netrexx

@@ -0,0 +1,18 @@
+/* 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