@plhk Да, ты тупой. Лист не бесконечный. Да даже если и бесконечный — жрать память эта поебень не должна, а только зависнуть.

@komar схуяли не должна? ты код смотрел?

@plhk Съеби уже.

@komar сам съеби

@plhk Но ведь это мой тред!

Проблема в ghci; если скомпилировать, то работает.

@fix попизди мне тут

@fix сука

Проблема, как выяснилось, в том, что foldl держит в памяти невычисленным весь список пока не дойдет до его конца, оптимизируя для скорости, и жрет память пока она не кончится, при этом тормозя. В случае с таким большим списком следует использовать оптимизирующий для памяти foldl'.

@voker57 Но ведь действительно так. В смысле, использовать sum, а не foldl.

@voker57 умвр

@komar у вас памяти просто дохуя. У меня падает.

@voker57 Да я не пробовал.

@komar А о чем ты тогда говоришь?

@voker57 А SUM-ТО ХУЛИ ПАДАЕТ БЛЯДЬ? Объясняй давай.

@komar потому что там foldl. Тупой штоле?

@voker57 О том, что не для прелюде там велосипедный сум без фолда.

@voker57 Но ведь там нет foldl.

@komar там велосипедный foldl

@voker57 http://hackage.haskell.org/package/base-4.6.0.1/docs/src/Data-List.html#sum Ну и какого хуя он падает? По той же причине?

@fix поправка: надо компилировать с -O

@komar И какого хуя там не заюзали фолд без санок-хуянок? Ясно же, что нужны все элементы, абсолютно все.

@komar Ну и хули ты показал? Код реализации foldl. Естественно, падает по той же причине.

@fix А отсосать Пейтону Джонсу не надо?

@komar Как хочешь.

@voker57 Блять, тогда объясни мне, нахуя там велосипедный foldl, если он работает точно так же. Это на миллисекунду быстрее, чем передавать HOF?

@komar мало ли какой у тебя там будет инстанс (+), может какому-то и не надо.

@komar Понятия не имею.

@voker57 Еб твою мать, НАЧАЛЬНИК, ХУЛИ ВЫ МЕНЯ В ЯЗЫК С ТАЙПКЛАССАМИ ПОСАДИЛИ

@voker57 хули там иметь import Criterion.Main main = defaultMain [ bgroup "sumvsfold" [ bench "sum" $ whnf (\x -> sum [1..x]) 1000000, bench "foldl" $ whnf (\x -> foldl (+) 0 [1..x]) 1000000 ] ] benchmarking sumvsfold/sum time 21.46 ms (21.00 ms .. 21.99 ms) 0.997 R² (0.994 R² .. 0.999 R²) mean 21.74 ms (21.38 ms .. 22.33 ms) std dev 1.056 ms (727.1 μs .. 1.643 ms) variance introduced by outliers: 19% (moderately inflated) benchmarking sumvsfold/foldl time 28.04 ms (23.36 ms .. 33.76 ms) 0.913 R² (0.865 R² .. 0.993 R²) mean 23.64 ms (22.48 ms .. 25.88 ms) std dev 3.650 ms (1.553 ms .. 5.915 ms) variance introduced by outliers: 67% (severely inflated)

@plhk Охуительно.

Подозреваю, что потому что в `sum` сидит `foldl`, а не `foldl'`. Первый не нужен почти никогда (хотя где-то видел извращенцев, которым он был нужен, но я так и не понял зачем).

@kb Да, вот sum http://hackage.haskell.org/package/base-4.7.0.1/docs/src/Data-List.html#sum Вот так работает: ``` Prelude> import Data.List (foldl') Prelude Data.List> let sum' = foldl' (+) 0 Prelude Data.List> sum' [1/20000, 1/19999..1/1] 1.9998999344245967e8 ```

@kb тред не читай @ сразу отвечай

@voker57 Прочитал, какие-то советы по компиляции с флагами.

@voker57 > оптимизирующий для памяти windows.ini bugs=off какой-то