Как вывести самодельный график в Haskell?

Question

[Дмитрий Щербаков]

Доброго времени суток!)
Занимался выполнением лабораторной работы по функциональному программированию, необходимо было сделать базу данных книг, газет и журналов. Причем у газет и журналов есть месяц выпуска, у книг же только год. Обозначил я этот пользовательский тип вот так, это приняли уже, именно на таком этапе изучения я сейчас и круче описать его не мог:

Вообщем дан список [Library]
Передо мной стоит задача вывести график подобного вида:

Дико извиняюсь за корявость, сейчас поясню.
то есть должны быть цифры от 1 до 12 и над каждой цифр столько знаков тире или минус (не важно), сколько типографии (газет или журналов) вышло именно в этот месяц.
Как это сделать я не знаю, с выводом мы еще не знакомились, препод троль еще тот. Целый день пытаюсь разобраться, ничего не выходит.

Comments

[Александр Скуснов]

Советую писать без графика. Главное содержание, а не форма. Т.е. надо получить список пар (номер месяца, количество изданий).

[Дмитрий Щербаков]

Александр Скуснов, У меня такое задание на защиту, именно в такой форме надо :D

[YURIY KOZLOV]

Все равно сначала есть смысл получить пары (месяц, количество), потом уже думать над выводом. Можно даже не пары, номер месяца тебе не больно нужен, а кортеж из 12 элементов, с ним, пожалуй, будет удобнее. Особенно если написать функцию инкремента заданного элемента кортежа. Каждый элемент соответствует месяцу. Проходишь сверткой по библиотеке, формируя кортеж. Потом уже думаешь о выводе.

Answer 1

[wiz]

Если сделать график в бок, то решение тривиальное - выводить построчно, с палочками вправо.
Менее информативным оно не станет, а код сильно упростится.

Если хочется горизонтальную гистограмму, то можно сначала расчитать решётку 12xH, а потом транспонировать (повернуть на бок). Дальше для каждой ячейки можно посмотреть "уровень заливки" и вывести соответствующую юникодную палочку.

Есть частный случай таких графиков, когда палочки используются высотой в 1 строку, называется Sparkline.