make-anagrams ( seq -- assoc )

Vocabulary

project-euler.098

Inputs

seq

an object

Outputs

assoc

an object

Definition

USING: anagrams assocs math.combinatorics sequences ;

IN: project-euler.098

: make-anagrams ( seq -- assoc )
    make-anagram-hash values [ 2 all-combinations ] map concat
    [ first length ] collect-by ;