DF
Size: a a a
DF
A
А⚙
S.unfold readeWithBufferOf (16 * 1024, iHandle)
& S.decodeUtf8
& lines
>>= splitColumns
>>= chars
& S.encodeUtf8
& S.fold (S.writeWithBufferOf (16 * 1024) oHandle)
& serially
where
lines = S.splitOn (== '\n') (T.pack <$> SF.toList)
splitColumns = S.fromList . fmap (<> "\n") . T.split (== ',')
chars = S.fromList . T.unpack
прув ми вронгDF
P
λ
S.repeatM (T.hGetLine iHandle)
>>= splitColumns
& S.intersperse "\n"
& S.fold (SF.drainBy $ T.hPutStr oHandle)
& serially
& S.drain
& handleEof
where
splitColumns = S.fromList . T.split (== ',')
p
f
DF
A
P
p
A
f
A
DF
DF
DF
A
A