16 lines
366 B
Text
16 lines
366 B
Text
Red []
|
|
|
|
m: make map! [] 25000
|
|
|
|
maxx: 0
|
|
foreach word read/lines http://wiki.puzzlers.org/pub/wordlists/unixdict.txt [
|
|
sword: sort copy word ;; sorted characters of word
|
|
|
|
either find m sword [
|
|
append m/:sword word
|
|
maxx: max maxx length? m/:sword
|
|
] [
|
|
put m sword append copy [] word
|
|
]
|
|
]
|
|
foreach v values-of m [ if maxx = length? v [print v] ]
|