tand ( 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

: tand ( trit1 trit2 -- trit )
    >trit {
        { t [ >trit ] }
        {
            m
            [
                >trit {
                    { t ~quotation~ }
                    { m ~quotation~ }
                    { f ~quotation~ }
                } case
            ]
        }
        { f [ drop f ] }
    } case ;