assoc-intersect-all ( seq -- assoc )

Vocabulary

assocs

Inputs

seq	a sequence

Outputs

assoc

an assoc

Word description

Outputs the intersection of all the assocs of the assocs sequence seq, or f if seq is empty.

Definition

USING: sequences ;

IN: assocs

: assoc-intersect-all ( seq -- assoc )
    [ f ] [ [ ] [ assoc-intersect ] map-reduce ] if-empty ;