20 lines
366 B
Text
20 lines
366 B
Text
d = new dict
|
|
for w = lines["http://wiki.puzzlers.org/pub/wordlists/unixdict.txt"]
|
|
{
|
|
sorted = sort[charList[w]]
|
|
curr = d@sorted
|
|
if curr
|
|
d@sorted.push[w]
|
|
else
|
|
d@sorted = [w]
|
|
}
|
|
|
|
most = sort[toArray[d], {|a,b| length[b@1] <=> length[a@1]}]
|
|
longest = length[most@0@1]
|
|
|
|
i = 0
|
|
while length[most@i@1] == longest
|
|
{
|
|
println[most@i@1]
|
|
i = i + 1
|
|
}
|