alt. ( assoc -- )

Vocabulary

koszul

Inputs

assoc

an object

Outputs

None

Definition

USING: assocs io kernel prettyprint sequences splitting ;

IN: koszul

: alt. ( assoc -- )
    dup assoc-empty?
    [ drop 0 . ]
    [ [ (alt.) ] { } assoc>map concat " + " ?head drop print ]
    if ;