Ordered words: Difference between revisions
Content added Content deleted
(→{{header|XPL0}}: simpler, better version) |
|||
Line 3,372: | Line 3,372: | ||
["abbott", "accent", "accept", "access", "accost", "almost", "bellow", "billow", "biopsy", "chilly", "choosy", "choppy", "effort", "floppy", "glossy", "knotty"] |
["abbott", "accent", "accept", "access", "accost", "almost", "bellow", "billow", "biopsy", "chilly", "choosy", "choppy", "effort", "floppy", "glossy", "knotty"] |
||
</pre> |
</pre> |
||
=={{header|Picat}}== |
|||
<lang Picat>go => |
|||
Dict = "unixdict.txt", |
|||
Words = new_map([Word=Word.length : Word in read_file_lines(Dict), Word == Word.sort()]), |
|||
MaxLen = max([Len : _Word=Len in Words]), |
|||
println([Word : Word=Len in Words, Len=MaxLen].sort).</lang> |
|||
{{out}} |
|||
<pre>[abbott,accent,accept,access,accost,almost,bellow,billow,biopsy,chilly,choosy,choppy,effort,floppy,glossy,knotty]</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |