Ticket #4427: Main.hs

File Main.hs, 1.2 KB (added by rl, 3 years ago)

Run with runghc Main.hs <file>

Line 
1import System.IO
2import System.Environment
3import Control.Monad
4import Foreign.Marshal ( allocaBytes )
5
6lens :: [Int]
7lens = [32 , 37 , 39 , 43 , 39 , 37 , 37 , 36 , 29 , 39 , 39 , 33 , 30 , 33 , 44 , 40 , 218 , 35 , 45 , 75 , 198 , 231 , 40 , 35 , 118 , 39 , 37 , 44 , 122 , 126 , 136 , 35 , 118 , 30 , 178 , 30 , 178 , 39 , 35 , 118 , 29 , 34 , 116 , 38 , 35 , 198 , 181 , 344 , 124 , 354 , 44 , 38 , 35 , 227 , 185 , 37 , 198 , 181 , 122 , 33 , 114 , 39 , 124 , 207 , 32 , 33 , 112 , 34 , 114 , 187 , 45 , 231 , 69 , 36 , 37 , 206 , 185 , 34 , 116 , 165 , 318 , 120 , 29 , 174 , 169 , 32 , 186 , 175 , 32 , 39 , 186 , 47 , 36 , 142 , 120 , 36 , 120 , 49 , 254 , 36 , 120 , 322 , 39 , 42 , 483 , 126 , 132 , 33 , 74 , 47 , 114 , 38 , 42 , 142 , 124 , 316 , 226 , 40 , 39 , 128 , 491 , 126 , 350 , 31 , 182 , 32 , 336 , 112 , 38 , 124 , 35 , 37 , 41 , 118 , 130 , 609 , 608, 300]
8
9lens' = concatMap (\n -> [4,n]) lens
10
11main = do
12         [x] <- getArgs
13         h <- openFile x ReadMode
14         allocaBytes 1024 $ \ptr ->
15           forM_ lens' $ \n -> do
16             k <- hGetBuf h ptr n
17             putStrLn $ show n ++ " " ++ show k
18         hClose h
19
20