Я уже говорил что обожаю библиотеку foldl?
Сначала, когда надо было максимально быстро зафигачить репорты, я тупо описал фолд из потока ивентов в конкретный репорт (единственно нужный). Теперь нужно сделать другой вид репортов -- хуяк-хуяк, логику подсчёта вынес в отдельный переиспользуемый тип (каждый "счётчик" считает не в большой тип AdReport а просто в Integer), написал две функции "поднятия" фолдов для каждого конкретного формата репорта и всё слепилось аккуратненько. Красота неимоверная.
Жуйк, какой из вариантов ты бы выбрал? http://i.imgur.com/86pj9Pb.png
Кароч, и правда я был лохом, вместо собственных операторов и прочей позорной хуйни переписал с использованием Either'ов и её монадно-апликативнофункторности-хуюрности и стало шелковистее.
Код в студию! http://i.imgur.com/R8jtqYJ.png
tfw проебался с апгрейдом на 7.8, всё уже починил (зависимости), а из-за какого-то хуёвого бага придётся всё откладывать до 7.8.3
Удивителен этот ваш мир параллельных/конкурентных/etc вычислений. Вот есть у меня работа с БД, сначала сделал тупой алгоритм "взял из бд -> запроцессил -> взял следующий -> запроцессил". Это работало крайне медленно. Ну я в качестве быстрого и дешёвого ускорения взял и переделал на "одновременно взять 10 штук -> запроцессить -> еще 10 штук", при чём каждый раз жду пока все 10 запросов завершатся, то есть совсем не оптимально, как мне казалось.
Всячески пытался это переделать кучей (4мя или 5ью) разных способов, никогда в жизни столько многопоточного кода (да ещё и с разными извращениями) не писал. Результаты каждый раз чем-то новым удивляют, но главное -- они всегда медленнее, чем вот тот тупой вариант, считывающий кусок за куском. Даже алгоритм "считывай точно так же кусок за куском, но в отдельном треде" получился медленнее.
В общем, надо будет как-то капитально засесть и разобраться почему вся эта херня происходит (а ещё книгу Марлоу как раз будет повод прочесть, задрал этот Окасаки, застрял на нём).
Дорогой друг, читающий эту заметку. Никогда, блять, не пиши ToJSON/FromJSON руками, особенно если оно как-то меняет данные, особенно если пишешь только ToJSON. // а то я тут такими извращениями теперь занимаюсь по типу let valsToTimeDatum = fmap ((map (uncurry TimeDatum)) . (zip timeSeries))
Спасибо.
Ох уж эти ваши хаскели. Захотел простую опцию в командную строку запилить. Гуглом нашёл имеющийся из коробки System.Console.GetOpt
. Читаю (и пытаюсь адаптировать) второй пример внизу:
...
(o,n,[] ) -> return (foldl (flip id) defaultOptions o, n)
...
Что за flip id
?
λ> :type flip
flip :: (a -> b -> c) -> b -> a -> c
λ> :type id
id :: a -> a
λ> :type (flip id)
(flip id) :: b -> (b -> c) -> c
Поломал 10 минут голову пока примерно не понял что происходит. Ну, ок, идём дальше:
(OptArg ((\ f opts -> opts { optOutput = Just f }) . fromMaybe "output")
Что за fromMaybe "output"
? То мы сверху defaultOptions делаем, то мы снова делаем что-то подобное им, только ещё и неясно зачем "output". Убрал fromMaybe
-часть, поборолся с компилятором и понял, что эта "магия" именно потому, что там у нас уже точно будет Just значение, но мы всё равно получим Maybe foo. Короче чисто чтоб компилятор успокоить.
В общем, люблю хаскель, с пользой поупражнялся в типах.
Чувак пилит в разные бранчи для ревью Applicative => Monad
, OverloadedRecords
, а кто-то сразу постит на реддит новости "Hot" и "Wow", этот же чувак идёт и отбивается, мол, еще только на ревью, подождите.
Не знаю, как правильно выразить мои чувства по этому поводу.
Блин, хаскель, конечно, крут, защищает тебя типами, но теперь здесь обратная проблема. Теперь вот у hbeanstalk. Зачем-то функция "посмотреть свойства задачи" возвращает Map ByteString ByteString. Ну, то есть, то ли я чего-то не понимаю, то ли автор и правда не подумал. Естественно, проперти задачи -- это что-то, что хочется, ну, как минимум иногда вывести на экран.
Короче думайте о тексте, пацаны.
// ппц, хочешь за 3 минутки накидать чего-то, а идёшь и пишешь в бнв про ерунду всякую которая не нравится в процессе