17 lines
388 B
Io
17 lines
388 B
Io
file := File clone openForReading("./unixdict.txt")
|
|
words := file readLines
|
|
file close
|
|
|
|
maxLen := 0
|
|
orderedWords := list()
|
|
words foreach(word,
|
|
if( (word size >= maxLen) and (word == (word asMutable sort)),
|
|
if( word size > maxLen,
|
|
maxLen = word size
|
|
orderedWords empty
|
|
)
|
|
orderedWords append(word)
|
|
)
|
|
)
|
|
|
|
orderedWords join(" ") println
|