19 lines
574 B
Text
19 lines
574 B
Text
import "io" for File
|
|
import "./sort" for Sort
|
|
|
|
var words = File.read("unixdict.txt").split("\n")
|
|
var longestLen = 0
|
|
var longest = []
|
|
for (word in words) {
|
|
if (word.count > longestLen) {
|
|
if (Sort.isSorted(word.toList)) {
|
|
longestLen = word.count
|
|
longest.clear()
|
|
longest.add(word)
|
|
}
|
|
} else if (word.count == longestLen) {
|
|
if (Sort.isSorted(word.toList)) longest.add(word)
|
|
}
|
|
}
|
|
System.print("The %(longest.count) ordered words with the longest length (%(longestLen)) are:")
|
|
System.print(longest.join("\n"))
|