18 lines
388 B
Io
18 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
|