color>n ( color -- n )

Vocabulary

wordlet

Inputs

color

an object

Outputs

n

an object

Definition

USING: colors combinators ;

IN: wordlet

: color>n ( color -- n )
    {
        { COLOR: gray [ 1 ] }
        { COLOR: yellow [ 2 ] }
        { COLOR: green [ 3 ] }
    } case ;