Yo dawg I herd you like maps...
fixResults = map (id *** map (dropWhile isNumber)) . concatMap (\(t, d) → map (\(st, l) → (t ++ " " ++ st, l)) d)
*haskell
Все чаще хочется обмазываться 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 →
*haskell is used by:
0xd34df00d
0xd34df00d
Minoru
Minoru
профессиональный говноед
ulidtko
kb
kb
Александр Марков
komar
Spiritual ecstasy
rapture
λ
lukish
zw0rk
zw0rk
Crazy_Owl
Crazy_Owl
16+
238328
4DA
4da
L29Ah
L29Ah
werehuman
werehuman
Evgeny I. E. Omelchenko
Elemir
amd63
amd63
Octocat
octocat
Mагог Магогович
magog
Voker57
Voker57
cirno
cirno
asmer
asmer
rhinze
rhinze
lexszero
lexszero
8
Eight
gelraen
gelraen
Michael Pogoda
MPogoda
desperate donkey
odin
Оранжевус Охуеннус
utros
Darth Bricktop
Like-all
folex
folex
folone
folone
nexeuse
nexeuse
Fess
zetoke
18+ Запрещено для детей.
hedgehog
beardog
beardog
oreolek
oreolek
Hirthwork McGillah
hirthwork
Andrew Motrenko
werdn
Klayraat
clayrat
SirAnthony
SirAnthony
Псикукумбер Томатический
Psykukumber
Ky6uk
Ky6uk
eurekafag
eurekafag
Bender Bending Rodríguez
DJm00n
Oleg Tsarev
zamotivator
failman
failman
lkdjvsdkjfgh
saransk
jabber
jabber
Лисий хвост
madInsane
Андрей
whisper
svtk
svtk
Jarkko
Jarkko
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