Бабушка, смотри, я сделал двач! Войти !bnw Сегодня Клубы
Привет, TbI — HRWKA! 1244.0 пользователей не могут ошибаться!
?6954
прекрасное6446
говно5911
говнорашка5512
хуита4725
anime3068
linux2656
music2638
bnw2606
рашка2570
log2365
ололо2205
дунч1854
pic1816
сталирасты1491
украина1439
быдло1438
bnw_ppl1430
дыбр1238
гімно1158

https://hackage.haskell.org/package/acme-lookofdisapproval-0.1/docs/Acme-LookOfDisapproval.html

Типа, джва года ждал эту фичу и всё такое. Вот теперь-то хипсторы точно перейдут на Haskell!

#DH01ZM (1) / @minoru / 3894 дня назад

https://www.odesk.com/jobs/Haskell-application-bug-fixing_~01ae86d92af94289ec

если кому интересно

#FKHS2U (1) / @kb / 3911 дней назад

sin x * cos y

#YXSON8 (0) / @ninesigns / 3911 дней назад

СЯУ про опцию install --allow-newer, заставляющую cabal игнорировать верхние границы версий пакетов.

#5U135L (3) / @minoru / 3915 дней назад

Выпустил новую версию Network-NineP. В ней я сделал интерфейс коллбеков более вразумительным и адаптировался к нововведениям в депенденси хелле.

#LVU1SI (5) / @l29ah / 3925 дней назад

pontarius-xmpp норм?

#1AR8DR (8) / @l29ah / 3925 дней назад

ghc-7.8.2 на ноутбучном core2duo собирает primitive на порядок быстрее чем 7.8.3 на десктопном pentium haswell.
К десктопу не готово.

#LDS49B (1) / @l29ah / 3931 день назад

Ура! // обмазываюсь потихоньку, сокращаю строки кода

          ReportDataMap $!! (hm & at (ev ^. evAdId) . non mempty
                             . rdPerHourMap
                             . at (hourTS ev) . non mempty
                             . rhViews +~ 1)
          -- ReportDataMap $!! H.insertWith
          --   (\_ old -> incReportDataView (hourTS ev) old)
          --   (ev ^. evAdId)
          --   (singleViewReportData (hourTS ev))
          --   hm
#CQ5NMC (15) / @kb / 3944 дня назад

Недели охуительных багов в мкдоналдс

https://github.com/informatikr/hedis/issues/15
https://github.com/bos/attoparsec/issues/70

#7JSJSC (10) / @kb / 3950 дней назад

Посоветуйте, кто пользовался, хороший LRU для хаскеля (или как искать). При том, что скорее всего придётся немного допилить его API под конкретную нужду (а может взять и свой небольшой написать?).

Паттерн использования такой: идёт поток ивентов, среди них нужно учитывать только последний по какому-то id-полю. То есть пока я думал сделать LRU-кеш, переписывая по этому самому id-полю значения, при удалении из LRU считать объект "конечным", также при окончании ивентов всё, что внутри LRU считать конечным.

#UF3J51 (1) / @kb / 3957 дней назад

Продолжая популярную тему "что меня восхитило" хочу поделиться, что только что написал вот этот кусок кода:

countViewsAndDurationsFold :: L.Fold Event ReportDataMap
countViewsAndDurationsFold = countViewsFold `mappend` countDurationsFold

Вот это меня действительно восхитило.

#2JNAIX (1) / @kb / 3958 дней назад

Испытал экстаз от того, как красиво и элегантно в persistent пишется функция, которая инсертит запись в таблицу, если там такой ещё нет, и возвращает id записи (либо новой, либо найденной):

insertLanguage language = do
    let lang = Language language
    entity <- getByValue lang
    case entity of
        Nothing  ->  do insert lang
        Just e   ->  return $ entityKey e

Пять строк, пять строк! И не какого-то там мозговыносящего матана с функторами, а нечто такое, что питонист, взглянувший на это, просто подумает: «о, в третий питон ещё и стрелочки какие-то впилили, прикольно».

Тот факт, что insert возвращает id созданной записи, ранее было поводом отдельного экстаза.

#A13SMB (48) / @minoru / 3960 дней назад

Удобное приведение типов, теперь и в х-ле!

import Data.Maybe (fromJust)
import Data.Aeson (decode, encode)

jsonCast :: (ToJSON a, FromJSON b) => a -> b
jsonCast = head . fromJust . decode . encode . (:[])

Теперь можно кастовать список интов в вектор даблов. Или различные числовые типы между собой.

♥ jsonCast ([1,2,3] :: [Int]) :: Data.Vector.Vector Double
    fromList [1.0, 2.0, 3.0]
♥ let q = jsonCast; a=3::Int; b=1.3::Float; c=Just 10
♥ q a + q b + q c :: Double
    14.3
#6TVM85 (8+1) / @fix / 3964 дня назад

tfw за 5 минут распараллелил код на 10 потоков и он даже ускорился нормально

// но всё равно в данный момент он говно, надо будет разбираться

#KPA5UR (15) / @kb / 3971 день назад

Мой маленький парсер логов, который берёт инпут из stdin, в какой-то момент постоянно начинает получать:

<stdin>: hGetLine: invalid argument (invalid byte sequence)

Сделал маленький пример на воспроизведение https://bitbucket.org/k_bx/infinite_getline , жду пока повторится.

#0YCC7G (29) / @kb / 3994 дня назад

У Ромы Чепляки неизменно отличные презентации: http://ro-che.info/docs/2013-11-14-haskell-and-oop.html

#27PRF8 (8) / @minoru / 3997 дней назад

Самые редкие профессии на рынке труда по итогам 2013 г.
№ Позиция Количество вакансий в России (шт.)
1 Lisp-программист 0
4 Haskell-программист 2
5 IT-евангелист 2

http://hh.ru/article/14852

#ITXM6P (12+4) / @lexszero / 4022 дня назад

А вообще, очень рад расширению OverloadedLists [0]. Особенно в контексте удобного создания непустых списков, например.

https://www.haskell.org/ghc/docs/7.8.1/html/users_guide/type-class-extensions.html#overloaded-lists

#M7PGRE (2) / @kb / 4024 дня назад
--
ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

Цоперайт © 2010-2016 @stiletto.