YS
Там, я разряды неверно посчитал?
Size: a a a
2020 July 01
YS
Очень мог
MK
и с одним менеджером вот что ещё:
Gen 0 1 colls, 1 par 0.005s 0.001s 0.0013s 0.0013s
Gen 1 1 colls, 0 par 0.004s 0.012s 0.0123s 0.0123sАГ
Или нет. В общем, ладно, забудьте
MK
т.е. вообще на гц нагрузки нет
YS
Треды только я думаю не ОСные
ЕР
Если 250к запросов, то вроде мегабайтные байтстринги в целом
Респонса от сервера там 200 байт
MK
а вот эти дыры — скорее всего ожидание сети
ЕР
🤔 можешь код кинуть?
MK
🤔 можешь код кинуть?
main :: IO ()
main = do
mgr <- newManager defaultManagerSettings
let opts = defaults & manager .~ Right mgr
_ <- withTaskGroup 100 (\tg -> mapConcurrently tg (process opts) [1..1000])
return ()
process :: Options -> Int -> IO ()
process opts i = do
response <- getWith opts ("http://167.172.41.106?i=" ++ (show i))
B.putStrLn (response ^. Network.Wreq.responseBody)YS
это 250к?
MK
это 250к?
не, код выше
1к вроде
1к вроде
YS
MK
432,458,616 bytes allocated in the heap
832,328 bytes copied during GC
219,832 bytes maximum residency (1 sample(s))
42,312 bytes maximum slop
0 MB total memory in use (0 MB lost due to fragmentation)MK
короче вся память в менеджерах :)
YS
Хех
MK
ну и ещё я putStrLn на B.putStrLn заменил как тут советовали
YS
А время суммарное чуть меньше секунды?
MK
да
YS
ну вот на 250к интересно)