7 lines
352 B
Text
7 lines
352 B
Text
words := HTTP:-Get( "http://wiki.puzzlers.org/pub/wordlists/unixdict.txt" )[2]: # ignore errors
|
|
use StringTools, ListTools in
|
|
T := Classify( Sort, map( Trim, Split( words ) ) )
|
|
end use:
|
|
L := convert( T, 'list' ):
|
|
m := max( map( nops, L ) ); # what is the largest set?
|
|
A := select( s -> evalb( nops( s ) = m ), L ); # get the maximal sets of anagrams
|