*haskell

Yo dawg I herd you like maps...

fixResults = map (id *** map (dropWhile isNumber)) . concatMap (\(t, d) → map (\(st, l) → (t ++ " " ++ st, l)) d)

#tseisn

add comment

Все чаще хочется обмазываться Control.Arrow. Например, вместо map (\(t, l) → (t, brkHead "===" l)) сделать map (id *** brkHead "==="). Мелочь, а красиво, приятно и point-free.

#tseisi

add comment

Впрочем, если парсить ленивым haxml, то нихрена памяти и не жрется, масштаб — мегабайт на все.
Ну и еще два гига на Data.Map с миллионом элементов, но это уже похуй.

Кстати, есть чо thread-friendly для ассоциативных массивов?

#tsfith

4 comments

Как няшно поутру написать какую-нибудь такую функцию → process = sortByFreq . filterAbbs . foldr addWord M.empty . concatMap words . getQueries

#tsfizs

7 comments

Так, haxml тоже отжирает по 6 гигов на 43 метра иксемеля. Пойду подолблюсь в hexpat.

#tsffze

9 comments

Поймал себя на бугурте от отсутствия чего-то вроде decltype для сигнатур в хачкеле.

#tsffzf

add comment

Зашарил haxml, в процессе два раза подрочил. Няшнота.

#tsfhne

2 comments

А, блеа. я ошибся и запускал не на той машине скрипты. В общем, в позапредыдущем посте не три гигабайта, а 6 с половиной.

#tsfhse

2 comments

Prelude Text.XML.Light.Input> xml !! 1
Elem (Element {elName = QName {qName = "?xml", qURI = Nothing, qPrefix = Nothing}, elAttribs = [Attr {attrKey = QName {qName = "version", qURI = Nothing, qPrefix = Nothing}, attrVal = "1.0"},Attr {attrKey = QName {qName = "encoding", qURI = Nothing, qPrefix = Nothing}, attrVal ... more →

#tsfhsi

2 comments

Парсинг 43-мегабайтного файла с xml — 3 гига сожранной оперативки. Ленивость @ функциональщина.
А долбиться в комбинаторы с haxml мне ленивовато.

#tsfhsf

12 comments

Документация уровня типичного опенсорса → http://hackage.haskell.org/packages/arch...

#tftgit

6 comments

ХАЧКЕЛЬ даже площадь простейшей фигуры посчитать нормально не может, получается
% runghc Main.hs pts.txt 2
Perimeter: 14.348093105974003; area: 11.375000000000009

#thhgsh

6 comments

Отсортировать в обратном порядке? sortBy (flip $ comparing smth) вместо sortBy (comparing smth).
Это вам не ебля с rbegin/rend.

#thhteh

16 comments

Зато понимание отношения монад, функций и join позволяет записать вычисление расстояния между двумя точками как композицию вычисления вектора между ними и join'а скалярного произведения:
dist2' = join (<.>) . uncurry diffVec

#thhtts

16 comments

Задали по методам распознавания изображений запрогать всякую хрень. Питонопитушки уложились в сотню строк. Матлабопитушки уложились в 50 строк. Я-хаскельбог уложился в 20 строк :3

#thtzoz

33 comments

Освоил использование section'ов для выражения большего числа мыслей в point-free style. Теперь мой код еще более нечитаем. А вкупе с backflip-ами так ваще.

#thotgh

41 comment

Почему abs :: a → a в определении тайпкласса Num? Я соснул с реализацией Num для векторов :(

#thoogh

8 comments

Минут 15 писал калькулятор средневзвешенного двух цветов. Пришлось даже КАРРИРОВАТЬ @ ДЕКАРРИРОВАТЬ, и вообще, как-то страшно выглядит:

avgColor (c1, c2) (w1, w2) = foldl (++) "#" $ map (show' . (`div` (w1 + w2)) . (uncurry (+))) $ zip (wt c1 w1) (wt c2 w2)

#thztis

8 comments

Охуенно, ghci падает при вызове GSL'ного фиттера, а самописный вполне себе работает.

#ttgief

2 comments

Чо-то я заебался профилировать свой генетический хаскель-код и решил перехуячить все на плюсах. С моим-то опытом напишу так же быстро и лаконично, зато летать будет, чую.

#ttghno

27 comments

Cкажи мне, нахуя scoped type variables включается только для explicitly forall'd переменных?

#ttshfh

3 comments

Поел говна с системой типов, scoped type variables и экзистенциальными типами.

#ttszen

add comment

Поставил haskell-platform на макбук. Я у мамы гейхипстер-академик.

#ttinnz

9 comments

ghc 7.6.1. А я только 7.4.2 собрал, эх.
Впрочем, очень клево продвинули систему типов. Только вот http://www.haskell.org/ghc/docs/7.6.1/ht... делает из моего няшного хаскеля какую-то питонятню.

#toezsf

30 comments

А вообще, конечно, рефакторить код на х-ле — одно удовольствие. За час переделал код с велосипедов и dsp на hmatrix, попутно разобравшись в их API и всем таком. Тайпчекер котик, всего лишь натыкал констрейнтов, где нужно, и все просто работает.

#tzhtss

12 comments