AA
Size: a a a
AA
AA
AA
AA
DB
IR
Vector.mapMaybeM
в несколько потоков?JS
M
запускало нитки?IR
advanceChunks i v = do
if Vector.length v < 16384 then
traverse (Vector.mapMaybeM advance) [v]
else
case Vector.splitAt (Vector.length v `div` 2) v of
(a, b) -> do
a' <- advanceChunks (i + 1) a
b' <- advanceChunks (i + 1) b
pure $! a' `pseq` b' `pseq` a' <> b'
JS
IR
IK
YS
YS
IK
IK
YS
YS
YS
IK