kata8.scala

import scala.io.Source
 
val words = for {
  line <- Source.fromFile("/usr/share/dict/words").getLines
  word = line.trim.toLowerCase
  if word.length <= 6
} yield word
 
val sixLetterWords = words filter { _.length == 6 }
val candidateParts = words filter { _.length < 6 }
 
val wordPairs = for {
  part <- candidateParts
  remainders = sixLetterWords filter {_ startsWith part} map {_ drop part.length}
  partner <- remainders filter { candidateParts contains }
} yield (part, partner)
 
wordPairs foreach { pair => println(pair._1+"+"+pair._2) }