fp week6

gistfile1.scala

 def sentenceAnagrams(sentence: Sentence): List[Sentence] = {
    def sen_iter(occur: Occurrences): List[Sentence] = {
      if (occur == List())
        List(Nil)
      else for {
        word_occur <- combinations(occur).filter(_ != List())
        word <- dictionaryByOccurrences(word_occur)
        rest <- sen_iter(subtract(occur, word_occur))
      } yield word :: rest
    }

    val s_occurs = sentenceOccurrences(sentence)
    sen_iter(s_occurs)
  }