Ordered words: Difference between revisions
Frink
(→{{header|ALGOL 68}}: shorter, and not relying on external code) |
(Frink) |
||
Line 2,117:
glossy
knotty
</pre>
=={{header|Frink}}==
<lang frink>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]]]]]</lang>
{{out}}
<pre>
[abbott, accent, accept, access, accost, almost, bellow, billow, biopsy, chilly, choosy, choppy, effort, floppy, glossy, knotty]
</pre>
| |||