>alt ( obj -- vec )

Vocabulary

koszul

Inputs

obj

an object

Outputs

vec

an object

Definition

USING: arrays combinators hashtables kernel math ;

IN: koszul

: >alt ( obj -- vec )
    {
        { [ dup not ] [ drop 0 >alt ] }
        { [ dup number? ] [ { } associate ] }
        { [ dup array? ] [ 1 swap associate ] }
        { [ dup hashtable? ] [ ] }
        [ 1array >alt ]
    } cond ;