abbrev ( seqs -- assoc )

Vocabulary

sequences.abbrev

Inputs

seqs	a sequence

Outputs

assoc

an assoc

Word description

Calculates an assoc of { prefix sequence } pairs with prefix being an prefix of each element of sequence for each element in seqs.

Definition

USING: assocs.extras kernel sequences sequences.abbrev.private ;

IN: sequences.abbrev

: abbrev ( seqs -- assoc )
    H{ } clone
    [ swap [ dup prefixes rot push-at-each ] with each ] keep ;