gistfile1.scala

((d:Seq[(String, Int)]) =>
    println(d.map(t => t._1 + " " + t._2).mkString("\n") + "\n\nВиноват " + 
      (if (d.map(_._1).take(5).contains("Вевелония")) "Ганс Шмуцихь" else "Вольфганг Кунстштюк")))
      (Source.fromFile("/home/scrum/data.txt").getLines().map(_.split(":")).flatMap(as => as(1).split(",").map(_.trim)
      .map((_, as(0)))).toArray.groupBy(_._1).mapValues(_.length).toSeq
      .sortWith((a, b) => if (a._2.compareTo(b._2) == 0) a._1.compareTo(b._1) < 0 else a._2.compareTo(b._2) > 0))

Output:

Россия 10
Уганда 10
Эфиопия 9
ЮАР 8
Вевелония 6
Дания 6
Австралия 5
Вайоминг 5
Венгрия 5
Греция 5
Европа 5
Елабуга 5
Жмеринка 5
Зимбабве 5
Индия 5
Камчатка 5
Кения 5
Ливан 5
Магдебург 5
Намибия 5
Патагония 5
Прерия 5
Руанда 5
Сингапур 5
Танганьика 5
Таруса 5
Уругвай 5
Филиппины 5
Херсонес 5
Чехия 5
Эритрея 5
Югославия 5
Ямайка 5
Ямал 5
Япония 5
Албания 4
Гондурас 4
Дедовск 4
Липецк 4
Огайо 4
Пакистан 4
Парагвай 4
Таллин 4
Танзания 4
Цинциннати 4
Шри-Ланка 4
Щукино 4
Аугсбург 3
Бавария 3
Бранденбург 3
Бургундия 3
Германия 3
Замбия 3
Калькутта 3
Канада 3
Мексика 3
Сибирь 3
Тамбов 3
Форос 3
Фракия 3
Хамовники 3
Чад 3
Шамбала 3
Австрия 2
Британия 2
Вильно 2
Воронеж 2
Гана 2
Ирак 2
Ирландия 2
Йемен 2
Куба 2
Курдистан 2
Ломбардия 2
Малайзия 2
Москва 2
Мюнхен 2
Непал 2
Рейкьявик 2
Саратов 2
Севастополь 2
Словакия 2
Татария 2
Тобаго 2
Тотьма 2
Турция 2
Уфа 2
Ходынка 2
Юкатан 2
Альпы 1
Бобруйск 1
Болгария 1
Босния 1
Бутан 1
Венесуэла 1
Гавана 1
Иран 1
Йорк 1
Кёнигсберг 1
Мехико 1
Минск 1
Нахабино 1
Новгород 1
Оттава 1
Плотина 1
Португалия 1
Румыния 1
Словения 1
София 1
Судан 1
Тринидад 1
Троицк 1
Фивы 1
Франция 1

Виноват Ганс Шмуцихь