anagram.scala

  val input = Vector("стационар", "соратница", "ватерполистка", "равновесие", "спаниель",
    "кильватер", "полковник", "нерасторжимость", "Вениамин", "австралопитек", "своенравие",
    "внимание", "апельсин", "вертикаль", "старорежимность", "клоповник",
    "пенсионерка", "покраснение")
  
  def anagrams(xs: Seq[String]): Seq[Seq[String]] = {
    def wSum(s: String) = {
      val ls = s.toLowerCase
      val l = ls.length
      (0 until l).map(ls.charAt).sum | l << 16
    }
    xs.groupBy(wSum).values.toSeq
  }

  anagrams(input) foreach println