alexpetrov / fp-contest-data-transformations

Functional Programming March 2015 Contest by Roman Dushkin

March 2015 Functional Programming Contest by Roman Dushkin

This program implements some data transformations on hexapods habitat statistics. Task description in Russian language is here in Roman's blog post: http://haskell98.blogspot.ru/2015/03/2015.html

Check out code in core.clj.

Check out tests to see basic examples of what algorithm is about core_test.clj.

Usage

To run program enter following in console:

./run.sh

It will compile program to one uberjar and run it.

To run tests:

lein test

Output

If you run this program, you will get this output in console:

Diversity of hexapods by countries:
{"Эритрея" 2,
 "Таруса" 1,
 "Йемен" 2,
 "Елабуга" 4,
 "Эфиопия" 5,
 "Малайзия" 2,
 "Зимбабве" 4,
 "Танганьика" 5,
 "Пакистан" 4,
 "Югославия" 2,
 "Шри-Ланка" 2,
 "Бутан" 1,
 "Сингапур" 4,
 "Филиппины" 4,
 "Албания" 2,
 "Курдистан" 1,
 "Германия" 2,
 "Ломбардия" 1,
 "Вевелония" 6,
 "Херсонес" 3,
 "Вайоминг" 2,
 "Парагвай" 2,
 "Индия" 3,
 "Дания" 3,
 "Ямайка" 3,
 "Тотьма" 1,
 "Уганда" 3,
 "Прерия" 3,
 "Кения" 4,
 "Танзания" 2,
 "Греция" 4,
 "Патагония" 2,
 "Россия" 5,
 "Непал" 2,
 "Япония" 4,
 "Сибирь" 2,
 "Австралия" 4,
 "Камчатка" 2,
 "Ливан" 3}
Dissapearance risks:
{"Популий грыжомельский" 1744,
 "Мелолонтий западный" 1814,
 "Десятилиньята лепая" 496,
 "Аурата сетуньская" 1314,
 "Семипунктата Коха" 1601,
 "Гортикола филоперьевая" 2151}

And csv file resources/hexapod-stats.csv with content like this:

Country/Hexapod;Популий грыжомельский;Мелолонтий западный;Десятилиньята лепая;Аурата сетуньская;Семипунктата Коха;Гортикола филоперьевая
Эритрея;-;-;Единицы;Сравнительно немного;-;-
Таруса;-;Много;-;-;-;-
Йемен;-;-;-;Сравнительно немного;Немного;-
Елабуга;Много;Очень мало;-;-;Много;Много
Эфиопия;Много;Единицы;-;Сравнительно немного;Единицы;Очень много
Малайзия;-;-;-;Сравнительно немного;Мало;-
Зимбабве;Единицы;-;Очень мало;-;Единицы;Очень мало
Танганьика;Очень много;Много;-;Сравнительно немного;Очень много;Очень мало
Пакистан;Немного;Очень мало;Немного;-;Немного;-
Югославия;Много;-;-;-;-;Много
Шри-Ланка;-;-;-;Много;Мало;-
Бутан;-;-;-;Много;-;-
Сингапур;Сравнительно немного;Много;-;-;Сравнительно немного;Много
Филиппины;Очень много;Единицы;Мало;-;-;Очень мало
Албания;Единицы;-;Очень мало;-;-;-
Курдистан;Много;-;-;-;-;-
Германия;-;-;-;В огромных количествах;Немного;-
Ломбардия;-;Мало;-;-;-;-
Вевелония;Сравнительно немного;Сравнительно немного;Немного;В огромных количествах;Много;Сравнительно немного
Херсонес;Много;-;-;-;Мало;Много
Вайоминг;Немного;-;-;-;-;Немного
Парагвай;-;Очень мало;Единицы;-;-;-
Индия;-;-;Единицы;Сравнительно немного;-;Сравнительно немного
Дания;-;Сравнительно немного;-;-;В огромных количествах;Сравнительно немного
Ямайка;-;-;Сравнительно немного;-;Очень много;Очень мало
Тотьма;-;Очень много;-;-;-;-
Уганда;-;-;Сравнительно немного;Сравнительно немного;-;Много
Прерия;Немного;-;Немного;-;-;Немного
Кения;Много;Единицы;-;В огромных количествах;-;Немного
Танзания;Единицы;-;-;В огромных количествах;-;-
Греция;Немного;-;-;В огромных количествах;Немного;Много
Патагония;Единицы;-;Единицы;-;-;-
Россия;Единицы;-;Мало;Мало;Очень мало;Единицы
Непал;Мало;-;-;Много;-;-
Япония;Единицы;Много;-;Сравнительно немного;Очень много;-
Сибирь;-;-;Мало;-;-;Много
Австралия;-;Сравнительно немного;Немного;Много;-;Единицы
Камчатка;-;-;-;Мало;-;Единицы
Ливан;В огромных количествах;Немного;-;-;-;В огромных количествах

Acknowledgements

I want to say thank you to following developers for refactoring ideas:

• Alexey Pirogov commit1, commit2, commit3
• Dmitry Groshev commit

License

Copyright © 2015 Alexander Petrov (a.k.a. Lysenko by passport)

Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.