RosettaCodeData/Task/Ordered-words/Picat/ordered-words.picat
2023-07-01 13:44:08 -04:00

5 lines
227 B
Text

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).