Handbook
Glossary
tor ( trit1 trit2 -- trit )
Vocabulary
rosetta-code.ternary-logic
Inputs
trit1
an
object
trit2
an
object
Outputs
trit
an
object
Definition
USING:
combinators
kernel
;
IN:
rosetta-code.ternary-logic
:
tor
( trit1 trit2 -- trit )
>trit
{
{
t
[
drop
t
]
}
{
m
[
>trit
{
{
t
~quotation~
}
{
m
~quotation~
}
{
f
~quotation~
}
}
case
]
}
{
f
[
>trit
]
}
}
case
;