Handbook
Glossary
t= ( 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
:
t=
( trit1 trit2 -- trit )
>trit
{
{
t
[
>trit
]
}
{
m
[
drop
m
]
}
{
f
[
tnot
]
}
}
case
;