20 lines
447 B
Plaintext
20 lines
447 B
Plaintext
lst := StringTools:-Split(Import("http://www.puzzlers.org/pub/wordlists/unixdict.txt"), "\n"):
|
|
longest := 0:
|
|
words := Array():
|
|
i := 1:
|
|
for word in lst do
|
|
if StringTools:-IsSorted(word) then
|
|
len := StringTools:-Length(word):
|
|
if len > longest then
|
|
longest := len:
|
|
words := Array():
|
|
words(1) := word:
|
|
i := 2:
|
|
elif len = longest then
|
|
words(i) := word:
|
|
i++:
|
|
end if;
|
|
end if;
|
|
end do;
|
|
for word in words do print(word); end do;
|