RosettaCodeData/Task/Ordered-words/E/ordered-words-1.e
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

7 lines
399 B
Text

pragma.enable("accumulator")
def words := <http://www.puzzlers.org/pub/wordlists/unixdict.txt>.getText().split("\n")
def ordered := accum [] for word ? (word.sort() <=> word) in words { _.with(word) }
def maxLen := accum 0 for word in ordered { _.max(word.size()) }
def maxOrderedWords := accum [] for word ? (word.size() <=> maxLen) in ordered { _.with(word) }
println(" ".rjoin(maxOrderedWords))