get-op ( num -- op )

Vocabulary

icfp.2006

Inputs

num

an object

Outputs

op

an object

Definition

USING: math ;

IN: icfp.2006

: get-op ( num -- op ) -28 shift 15 bitand ;