key-axis ( keys negative positive -- n )

Vocabulary

papier

Inputs

keys	an object
negative	an object
positive	an object

Outputs

n

an object

Definition

USING: kernel math sets ;

IN: papier

:: key-axis ( keys negative positive -- n )
    keys positive intersects? 1 0 ? keys negative intersects?
    1 0 ? - ;