test/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Main where

import Control.Monad (forM_)

import GHC.GC_Hook


main :: IO ()
main = do
  setGCHook
  forM_ [1..10] $ \i -> do
    let l = [i..10000]
    print (sum l + product l + length l)
  getGCLog >>= print