RosettaCodeData/Task/Logical-operations/Oforth/logical-operations.oforth
2016-12-05 23:44:36 +01:00

5 lines
184 B
Text

: logical(b1, b2)
System.Out "and = " << b1 b2 and << cr
System.Out "or = " << b1 b2 or << cr
System.Out "xor = " << b1 b2 xor << cr
System.Out "not = " << b1 not << cr ;