RosettaCodeData/Task/Ordered-words/Lua/ordered-words.lua
2026-02-01 16:33:20 -08:00

29 lines
590 B
Lua

fp = io.open( "dictionary.txt" )
maxlen = 0
list = {}
for w in fp:lines() do
ordered = true
for l = 2, string.len(w) do
if string.byte( w, l-1 ) > string.byte( w, l ) then
ordered = false
break
end -- if
end -- for
if ordered then
if string.len(w) > maxlen then
list = {}
list[1] = w
maxlen = string.len(w)
elseif string.len(w) == maxlen then
list[#list+1] = w
end -- if
end -- if
end -- for
for _, w in pairs(list) do
print( w )
end
fp:close()