Ticket #5203: q.2.hs
| File q.2.hs, 331 bytes (added by igloo, 2 years ago) |
|---|
| Line | |
|---|---|
| 1 | |
| 2 | module Main (main) where |
| 3 | |
| 4 | import W (analyseMean) |
| 5 | import qualified Data.Vector.Unboxed as U |
| 6 | import System.IO |
| 7 | |
| 8 | main :: IO () |
| 9 | main = do hSetBuffering stdout NoBuffering |
| 10 | measureEnvironment |
| 11 | |
| 12 | measureEnvironment :: IO () |
| 13 | measureEnvironment = do |
| 14 | putStrLn "W1" |
| 15 | let x = U.replicate 159999 3.6 |
| 16 | analyseMean x |
| 17 | putStrLn "W3" |
