7 lines
224 B
Text
7 lines
224 B
Text
[ 0 <> [ ." true" ] [ ." false"] ifTrueFalse ] is .bool
|
|
[ ( a b -- )
|
|
cr ." a = " over .bool ." b = " dup .bool
|
|
cr ." a and b = " 2dup and .bool
|
|
cr ." a or b = " over or .bool
|
|
cr ." not a = " 0 = .bool
|
|
] is logic
|