Хорошо.

Спасибо.

Тханкс.

Имя ей — Сырнопизда

Она наша, блядь, звезда

На Ычане крутит попой

И дает модтрапу в жопу

>>776084
Заебал этим говностихом.

>>776091
а мне нра!

>>776093
И мне.

>>776094
мы братья по нра!

пизда звезда попой в жопу

Рифма на уровне детского сада, как и связка через «блядь», тем более что в этом случае должно быть «блять», а не «блядь». Говно.

>>776097
хуеплёты

>>776095
Не брат ты мне, ХЛАМ.

Шинку — хлам

>>776101
Yep.

+

–

=

1

±±±±=0

У меня баттхерт от количества позорящих Шинку людей.

Шинку — хорошая и няшная, почему шинкуфаги такие пидоры и гондоны в своей основной массе?

Увидел Хороеб — плюсанул. Дальше не читал.

>>776134
она стерва. Суигинтоу няша

ШИНКУЦЕФАЛ СПЕРМУ ПОЛИЗАЛ

>>776136
Суигинту тоже хорошая, но еще более гордая, чем Шинку и глупая немного.

Куклоёбы в треди, все в фдц.

>>776137
Вот и я о том же. Кто сперму лижет, кто мочу пьет, кто мясо ебет.

>>776138
Её гордость охуенная. Словно гордый бедняк.
А у Шинку гордость воспитанная. неискреняя

>>776142
>>776137

Все, абсолютно все. Каждый и все вместе в этом проклятом треде соснули хуйца.

>>776145
Мало, надо еще

>>776142
Гордость у них одинаковая. Просто её проявления зависят от обстоятельств, Шинке больше повезло, попади Суигинта в Шинкину шкуру, вела бы она себя точно так же, а то и еще хуже.

Вообще, гордость — не ня.

>>776146

>>776147
Ну не пизди. Розен изначально заложил разные характеры по сути. ожет она была бы какой-нибудь садисткой, а может и няшей.

>>776147
Нет, суигинта изначально была няшей, искренне поверила шинке. а та поливала ее говном мысленно и рл

>>776150
Я и не говорил, что характеры у них одинаковые. просто обе слишком гордые, но на этом сходство заканчивается.
>>776151
В каком месте она её говном поливала?

>>776151
А потом ей прострелили колено?

>>776152
Ты блять смотрел аниму? Читал мангу?

>>776154
Аниму смотрел и овертюру. Мангу не читал.

Постоянно поливала, пока Суигинтоу не ПОНЯЛА

>>776152
Не считала ее за куклу РМ, и обзывала хламом

гуд, плюс

Это в манге было, что ли?

>>776159
И в манге, и в аниме, нубы какие то

>Читают: 8
Куклоёбы набижали

Куклоебы, не смотревшие РМ в треде. Круто.

>>776161
Кот бы говорил

>>776160
В аниме она просто не хотела с ней драться, потому что она была слабой.

>>776157

Хлам и есть, пуза-то нет!

Приветствую

Есть задача, вроде Project Euler 6 — посчитать сумму и сумму квадратов для чисел из диапазона. Но диапазон большой — например, от 1 до 1e9.

Решаем задачу так:

func min max = (sum1,sum2)
where
strictSum = foldl1' (+)
lst = [min..max]
sum1 = strictSum lst
sum2 = strictSum $ map (^2) lst

При выполнении вычисляется и запоминается список lst. А он очень большой.

Если же написать так:

func min max = (sum1,sum2)
where
strictSum = foldl1' (+)
sum1 = strictSum [min..max]
sum2 = strictSum $ map (^2) [min..max]

то все хорошо.

Что можно сделать с первым примером (или с его компиляцией), чтобы избежать выделения памяти для lst?

>>776164
Вот именно, она не считала ее за ровню, то есть ниже себя и вообще ничем

>>776167
Ну так она и не была ей ровня, она была объективно слабей, когда попала Шинке в руки.

>>776166
А>Есть задача, вроде Project Euler 6 — посчитать сумму и сумму квадратов для чисел из диапазона. Но диапазон большой — например, от 1 до 1e9.

А>Что можно сделать с первым примером (или с его компиляцией), чтобы избежать выделения памяти для lst?

1. Можно найти/вывести формулу суммы и суммы квадратов последовательных чисел. Получим сложность O(1) вместо O(n)
2. По существу вопроса.

С компиляцией сделать ничего нельзя. Функция func возвращает(su­m1,sum2), которая вычисляется как (strictSum lst, strictSum $ map (^2) lst). Haskell вычисляет lst, но видит, что этот же список понадобится для каждого из элемента этой пары, поэтому не удаляет этот список из памяти.

Возможное решение: пробегать по списку lst и вычислять сразу два значения sum1 и sum2. Тогда предыдущие значения lst будут не нужны и haskell сможет это все оптимизировать.
lst = …
f (sum1,sum2) x = (sum1+x, sum2+x²)
result = fold f (0,0) lst

Тоже гордец, небось.

Заебали флудить.
Давайте лучше задачки решать >>776166>>776170

Какой нибудь лох неудачник, не смотревший рм

>>776166
{-# LANGUAGE GADTs #-}
module Fold where
import Control.Applicative
import Data.List
data Fold a b where Fold :: c → (c → a → c) → (c → b) → Fold a b
runFold, runFold' :: Fold a b → [a] → b
runFold (Fold c s h) as = h (foldl s c as)
runFold' (Fold c s h) as = h (foldl' s c as)
instance Functor (Fold a) where fmap f (Fold c s h) = Fold c s (f . h)
instance Applicative (Fold a) where
pure x = Fold () (\_ _ → ()) (const x)
Fold cf sf hf <*> Fold ca sa ha = Fold (cf, ca) (\(cf, ca) x → (sf cf x, sa ca x)) (\(cf, ca) → hf cf (ha ca))

>>776172
Иди в /ц/

>>776166
А>Приветствую

А>Есть задача, вроде Project Euler 6 — посчитать сумму и сумму квадратов для чисел из диапазона. Но диапазон большой — например, от 1 до 1e9.

А>Решаем задачу так:

А>

А>func min max = (sum1,sum2)
А> where
А> strictSum = foldl1' (+)
А> lst = [min..max]
А> sum1 = strictSum lst
А> sum2 = strictSum $ map (^2) lst
А>

А>Что можно сделать с первым примером (или с его компиляцией), чтобы избежать выделения памяти для lst?

Banana-split law: <([h]), ([k])> = ([<h . F outl, k . F outr>])
Или на хаскеле:

(foldl1 h, foldl1 k) == foldl step (0,0)
step (a, b) x = (h a x, k b x)
-- в нашем случае:
h = (+); k b x = b + x²
step (a, b) x = (a + x, b + x²)

Всякими фолдами с ' можно не увлкаться, если компилировать с -O2 (или даже просто -O) никакой разницы между ними и их версиями без ' нет. Но, из-за ленивого конструктора пары, вычисления будут откладываться, так что санки все равно займут памяти как весь список. Так что:

step (a, b) x = let !a' = a + x; !b' = b + x² in (a', b')

Или не мучать себя всякими let in, а использовать строгий по двум аргументам умный конструктор пары:

(&!) !a !b = (a, b)
step (a, b) x = (a + x) &! (b + x²)

>>776175
да это я вайпера троллирую

>>776166
Простейший вариант: превращаем явную подстановку двух разных списков (как во втором примере) — в неявную
А>

А>func min max = (sum1,sum2)
А> where
А> strictSum = foldl1' (+)
А> lst = const [min..max] — lst — функция, принимающая на вход любой мусор
А> sum1 = strictSum (lst undefined)
А> sum2 = strictSum $ map (^2) (lst undefined)
А>

Более затейливо:

func min max = foldl' (doit2 (+) (+)) (dup 0) $ map (doit1 id (^2)) $ map dup $ [min..max]
where
dup x = (x,x)
doit1 f g (x,y) = (f x, g y)
doit2 f g (x,y) (z,t) = (f x z, g y t)

Это стрелки на коленке. Как сделать стрелки на стрелках — ещё не вкурил, надо почитать хаскелопедию.

>>776178
А я тебя потроллировать пытался, вот незадача!

А вообще, все куклы няшные.

>>776179
К>Более затейливо:
К>

К>func min max = foldl' (doit2 (+) (+)) (dup 0) $ map (doit1 id (^2)) $ map dup $ [min..max]
К>where
К> dup x = (x,x)
К> doit1 f g (x,y) = (f x, g y)
К> doit2 f g (x,y) (z,t) = (f x z, g y t)
К>

К>Это стрелки на коленке. Как сделать стрелки на стрелках — ещё не вкурил, надо почитать хаскелопедию.

dup = id &&& id
doit1 = ()
-- а точнее (!), потому, что в () матчинг пары ленивый
map (id *** (^2)) . map (id &&& id) = map (id &&& (^2))
f doit2 g = f *** g >>> uncurry ()

Кроме Бары, но она и не кукла.

>>776181
Канария не ня

>>776182
K>

K>f doit2 g = f *** g >>> uncurry (***)
K>

Вот. Про uncurry я не догадался.

Колкун! Спасай! Врубай матанкапчу!

>>776184
Ня! Самая умная! Самая сильная!

Прям как Сырна.

>>776185
К>Вот. Про uncurry я не догадался.

Если что-то писать на стрелках там вечно этот uncurry будет использоваться для сведения параллельных «потоков» в бинарную операцию.

curry $ foo *** bar >>> uncurry (+)

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

(+) <$> foo <*> bar

>>776187
Пусть жрет свой омлет и не показывается мне на глаза

>>776191
Какой ты злой.

Хаскел для пидоров и гнойных воннаби-илит.

>>776186
Фсасали, кукломрази.

Каночка, кушай свой омлет и не обращай внимания на этого дядю.

>>776193
Так специально для травли кукломразкй хачкелем вайпаю

Твой мозг съеден монадами.

кана — не ня
гинта — ня
кира — ня
деса — ня
соу — не ня
хина — так себе

а, ну и бара ня

>>776200>>776199
Я не хачкелист

>>776199
чо? где связь?

>>776201

Бара ня

Кира ня

Ты не ня!

>>776205
Мамка твоя не ня, они — ня

Мясоёб, поддержи меня!

Ладно. Тогда давайте поговорим о Mnesia. Для каких задач стоит использовать

>>776208

Для любых, где требуется СУБД мягкого реального времени, т.е. там где достаточно гарантии среднего времени выполнения запросов.

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

>>776209
Mnesia это in-memory база или нет?

>>776212

P>Mnesia это in-memory база или нет?

не совсем для in-memory в эрланге есть ets (erlang term storage), мнезия построена на нём и на dets (disc ets) + репликация

Даже матан не сделает Кану ня

>>776212

Таблицы могут располагаться как в памяти так и на диске.

Какой-то там короткий тред про мнесию.

Давайте задайте тему а я поищу. Какаям языком вайпать?

Охуеть. Какие тут все умные.
Я нихуя не понял 90%.

>>776222
это паста

>>776226
Нет, тут хаскелисты общались.

>>776229
лоло

>>776230
Ты что не веришь?

На слове Хороеб остановился, плюсанул, дальше не читал.