bool-sum ( bool1 bool2 -- sum )

Vocabulary

rosetta-code.one-d-cellular

Inputs

bool1	an object
bool2	an object

Outputs

sum

an object

Definition

USING: kernel ;

IN: rosetta-code.one-d-cellular

: bool-sum ( bool1 bool2 -- sum )
    [ [ 2 ] [ 1 ] if ] [ [ 1 ] [ 0 ] if ] if ;