31a70d07cac3059d82fd133094fd6d453f4dc28820529e83f3587b76bcc6d1e8

Download raw

Created: 2019-10-12 06:53:48.403379 UTC

Size: 974

Preview (limited to 512 bytes)

"import Control.Applicative ((<|>), many)\nimport Control.Monad (forM_)\nimport System.Environment (getArgs)\nimport qualified Data.Attoparsec.ByteString.Char8 as A\nimport qualified Data.ByteString.Char8 as B\nimport qualified Text.Parsec as P\nimport qualified Text.Parsec.ByteString as P\n\nattoparsec = do\n args <- getArgs\n forM_ args $ \\arg -> do\n input <- B.readFile arg\n case A.parse p input `A.feed` B.empty of\n A.Done _ xs -> print (length xs)\n what -> print what\n where\n slow = many (A"


A service provided by FP Complete