Ordered words: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: shorter, and not relying on external code) |
(Frink) |
||
Line 2,117: | Line 2,117: | ||
glossy |
glossy |
||
knotty |
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> |
</pre> |
||