Ticket #3808: cons.hs

File cons.hs, 220 bytes (added by paolino, 4 years ago)
Line 
1import System.IO
2import qualified Data.ByteString.Lazy as BS
3import Data.Binary
4
5decode' = decode :: BS.ByteString -> [Integer]
6main = do
7--      hSetBinaryMode stdin True
8        BS.hGetContents stdin >>=  print . length . decode'