
Yo dawg I herd you like maps...
fixResults = map (id *** map (dropWhile isNumber)) . concatMap (\(t, d) → map (\(st, l) → (t ++ " " ++ st, l)) d)
Yo dawg I herd you like maps...
fixResults = map (id *** map (dropWhile isNumber)) . concatMap (\(t, d) → map (\(st, l) → (t ++ " " ++ st, l)) d)
Все чаще хочется обмазываться Control.Arrow. Например, вместо map (\(t, l) → (t, brkHead "===" l)) сделать map (id *** brkHead "==="). Мелочь, а красиво, приятно и point-free.
So when an 17-year old girl has no trouble with kan extensions, continuation Monads and traversable stuff, you ruby developers should really ask yourselves what the fuck you all did wrong in life.
Хотел написать письмо Daan Leijen чтоб сделал хоть какое-нибудь коммьюнити для Parsec (а то документация, во-первых, скудная, во-вторых устаревает), а его единственный контактный имейл университетский уже не работает. На страничке http://research.microsoft.com/en-us/peop... тоже не видно.
CABAL_EXTRA_CONFIGURE_FLAGS="--enable-shared"
GHC_BOOTSTRAP_FLAGS="-dynamic"
добавив сие в /etc/make.conf, не вижу иного для себя исхода, окромя запуска haskell-updater --all
...пересобрались 67 пакетов // фу, как мало :)
И было у меня файлов *.dyn_hi в количестве 977 и стало их 2179
А зачем это всё? А вот ... more →
Впрочем, если парсить ленивым haxml, то нихрена памяти и не жрется, масштаб — мегабайт на все.
Ну и еще два гига на Data.Map с миллионом элементов, но это уже похуй.
Кстати, есть чо thread-friendly для ассоциативных массивов?
Как няшно поутру написать какую-нибудь такую функцию → process = sortByFreq . filterAbbs . foldr addWord M.empty . concatMap words . getQueries
Так, haxml тоже отжирает по 6 гигов на 43 метра иксемеля. Пойду подолблюсь в hexpat.
Поймал себя на бугурте от отсутствия чего-то вроде decltype для сигнатур в хачкеле.
А, блеа. я ошибся и запускал не на той машине скрипты. В общем, в позапредыдущем посте не три гигабайта, а 6 с половиной.
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 →
Парсинг 43-мегабайтного файла с xml — 3 гига сожранной оперативки. Ленивость @ функциональщина.
А долбиться в комбинаторы с haxml мне ленивовато.
Больше всего в пользовании hackport меня поражает то, что тарболы качаются с http://dev.gentoo.org/~qnikst как будто @qnikst в ответе за всё
1. оказывается, х-ль умеет multiline-строки в виде:
a = "foo\
\ bar \
\ baz"
(слэш на новой строке указывает, где она начинается, чтоб можно было выравнивать это безобразие)
2. emacs при этом немного ломается, потому я уж лучше вернусь к "foo" ++ "bar" пока.
А если серьезно, никто не подскажет как нормально сделать в quickCheck аналог assertEquals? Чтоб красиво diff печатал (можно как-то совсем по-умному, конечно).
Что-то в это есть:
@maxlapshin:
3 minutes ago
@qnikst в любом случае поведение адептов хаскеля очень показательно и напоминает феминисток. Макс написал пост о том, что в go улучшение шедулера. Макс не пишет на хаскеле, его блог малоинтересен для программиста на хаскеле, но кто первым же влез? Правильно, дрочеры на ... more →
0xd34df00d
Minoru
ulidtko
kb
komar
rapture
lukish
zw0rk
Crazy_Owl
238328
4da
L29Ah
werehuman
Elemir
amd63
octocat
magog
Voker57
cirno
asmer
rhinze
lexszero
Eight
gelraen
MPogoda
odin
utros
Like-all
folex
folone
nexeuse
zetoke
hedgehog
beardog
oreolek
hirthwork
werdn
clayrat
SirAnthony
Psykukumber
Ky6uk
eurekafag
DJm00n
zamotivator
failman
saransk
jabber
madInsane
whisper
svtk
Jarkko