3 lines
289 B
Text
3 lines
289 B
Text
url="https://web.archive.org/web/20180611003215if_/http://www.puzzlers.org:80/pub/wordlists/unixdict.txt"
|
|
a = sort[select[lines[url], {|w| charList[w] == sort[charList[w]] } ], {|a,b| length[a] <=> length[b]}]
|
|
println[sort[select[a, {|w, longest| length[w] == longest}, length[last[a]]]]]
|