Andy Melnikov (nponeccop) wrote,
Andy Melnikov
nponeccop

Загадка

По задумке, это tail -n +2 in.txt >out.txt: программа читает in.txt, выбрасывает из него первую строчку и сохраняет в out.txt. Но по факту out.txt пустой. Ответ не интересен - лучше скажите, сколько времени у вас ушло на устранение ошибки. Чтобы не было спойлеров, комменты скринятся.
import Data.Conduit
import qualified Data.Conduit.List as CL
import qualified Data.Conduit.Binary as CB

import Data.Bits.Utils (c2w8)
import qualified Data.ByteString as BS

cr = c2w8 '\n'
lineSource fileName = CB.sourceFile fileName $= CB.lines
lineSink fileName = CL.map (flip BS.snoc cr) =$ CB.sinkFile fileName

main :: IO ()
main = runResourceT $ lineSource "in.txt" $= CL.drop 1 $$ lineSink "out.txt"
conduit-0.5.5, если чо.
Subscribe

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 15 comments