31 lines
394 B
Text
31 lines
394 B
Text
--<
|
|
Logical not
|
|
|
|
Takes:
|
|
BOOL: The value
|
|
|
|
Returns:
|
|
BOOL: !value
|
|
>--
|
|
fun not [ bul ] bul eo 1 grt end
|
|
|
|
|
|
--<
|
|
Logical and
|
|
|
|
Takes:
|
|
BOOL: The 1st value
|
|
BOOL: The 2nd value
|
|
|
|
Returns:
|
|
BOOL: 2nd && 1st
|
|
>--
|
|
fun and [ bul bul ] bul eo
|
|
-- Convert the values to booleans
|
|
#not #not
|
|
swap
|
|
#not #not
|
|
|
|
-- Binary and
|
|
ban
|
|
end
|