вроде все просто взлетело

и время компиляции прям никакое

ну и про баг который Дениса укусил я вроде писал перед НГ

ага

у нас тайплевел ада нету

что упрощает жизнь

а как вы живете без тайплевел ада? сервант вполне себе тайплевел ад. ну т.е бывает хуже. но вот

серванта не было, до пары недель назад

сейчас есть но там 4 эндпоинта

ну больше но порядка 10, что совсем мало

тормоза основные почему-то не в тайплевел аде судя по всему

как ни странно в TH от персистента, хотя вопрос только ли TH виноват

вот ТХ у нас много

ну вот например

янв 04 17:54:04 [72 of 91] Compiling Database.TLDR.Stats.Model ( src/Database/TLDR/Stats/Model.hs, .stack-work/dist/x86_64-linux-tinfo6/Cabal-2.0.1.0/build/Database/TLDR/Stats/Model.o ) янв 04 17:55:43 [73 of 91] Compiling Database.TLDR.Stats ( src/Database/TLDR/Stats.hs, .stack-work/dist/x86_64-linux-tinfo6/Cabal-2.0.1.0/build/Database/TLDR/Stats.o )

т.е. минута сорок

около 20 табличек

при этом есть ещё одна "моделька" примерно такого же объёма

и оно меньше секунды компилится

такие проблемы же только на каких-нибудь изолированный сборках, в деве же можно инкрементально?

расшифруй?

ну то есть не обязательно же в деве собирать модули, которые не поменялись (следовательно и TH не нужно перезапускать)?

когда разрабатываешь это не большая проблема, а проблема если только на CI

про CI и речь была

но вроде прогнал тот же билд и дельта не такая катастрофическая на том пакете

4 минуты на 8.2 против 3 на 8.0

при том что заявляли о том, что GHC стал быстрее

ну на их бенчмарках стал, а качество бенчмарков там и по времени компиляции и по производительности кода оставляют желать много лучшего, скажем так

а каких-то заметных изменений (в меньшую сторону) времени компиляции я бы не ждал

А мне очень нравится Get programming in Haslell (или как то так) by Will Kurt (Manning) она не большая, практической направленности и каждая глава заканчивается кэпстоун проджектом с подробным описанием что к чему.

а pdf есть?

В Эльме будет больше дичи, походу

Это шутка, я надеюсь?

На самом деле нужны только пары, пустые кортежи и немножко синтаксического сахара

Это шутка, я надеюсь?

нет

нет

rip

> На самом деле нужны только пары, пустые кортежи и немножко синтаксического сахара еще хэшмапа, 21 век же

Пары это синтаксический сахар над лямбдой двух аргументов же

@qnikst спам?

fixed

👍

А как правильно написать ф-ю, которая будет: 1. Запрашивать ввод через getLine 2. Сверять его с условием (x == 1, например). Если неверно - на п.1 3. Если верно - вернуть число 2

Было бы хорошо скинуть что-то что уже есть в наличии

А тут бы уже подсказали что поправить

А то так сложно что-то сказать кроме как готовое написать

У меня из готового только свои исходники на Python есть :D Пытаюсь это же на Хаскеле переписать, чтобы посмотреть как оно выглядеть будет

Оно так не работает. В лоб алгоритм перенести, конечно, можно, но выглядеть будет так себе

module Main where import Control.Monad (unless) prompt :: IO () prompt = do putStrLn "Enter 1 or 2:" l <- getLine unless (l == "1" || l == "2") $ do putStrLn "Wrong number." prompt putStrLn $ "Your number is " ++ l main = prompt

Вроде того. Только в последнем выводе все введённые значения выводятся. Грубо говоря я пытаюсь понять, как без привычного while это сделать

Переписал на module Main where prompt :: IO () prompt = do putStrLn "Enter 1 or 2:" l <- getLine if l == "1" || l == "2" then putStrLn $ "Your number is " ++ l else do putStrLn "Wrong number.\n" prompt main = prompt Теперь думаю, как не распечатать, а вернуть Int из ф-и prompt

pure l

prompt :: IO Int prompt = do putStrLn "Enter 1 or 2:" l <- getLine if l == "1" || l == "2" then pure $ read l else do putStrLn "Wrong number.\n" prompt

народ, как выбрать кортеж из списков кортежей, который является наибольшим по второму значению?

last . sortOn snd head . reverse . sortOn snd

можно еще через maximumBy maximumBy (compare `on` snd)

@kana_sama Спасибо, помогло

Я бы не рекомендовал использовать функцию last. Лучше отсортировать по убыванию сразу.

для ясности, я делаю задание для определения буквы, которая чаще всего встречается и ignoreCase

mostFrequenceChar str = [(letter, count) | letter <- ['a'..'z'], let count = length (filter (== letter) lowerCaseStr), count > 0] where lowerCaseStr = map (toLower) str

извиняюсь, не знаю, как красиво вставить код

на данный момент функция производит список кортежей с частотами (буква, частота)

Обрамляй bactick'ами: `

тройными

для ясности, я делаю задание для определения буквы, которая чаще всего встречается и ignoreCase

ты строишь гистограмму? распределения частот повторения букв?

тройными

Да. Это если на несколько строчек

ты строишь гистограмму? распределения частот повторения букв?

да

да

group

да

как-то так? fmap (\x -> (head x, length x))$ group $ sort "test as test"

да, типо этого, только ignoreCase букв и только isAlpha

слишком много $ и ни одного &&&

слишком много $ и ни одного &&&

+

но в любом случае, спасибо, буду разбираться)

слишком много $ и ни одного &&&

я мог написать так) но стрелки думал будет жестко)

да, типо этого, только ignoreCase букв и только isAlpha

добавь фильтр isAlpha

я мог написать так) но стрелки думал будет жестко)

Да ладно, это ж просто комбинатор. Строго говоря, он вообще со стрелками не связан

Да ладно, это ж просто комбинатор. Строго говоря, он вообще со стрелками не связан

fmap (liftA2(,) head length) $ group $ filter isAlpha $ sort "test as test"

наверное, разумнее сначала пофильтровать, а потом уже сортировать

+

Ну и точек

хватит придираться)