fork download
  1. {-# OPTIONS_GHC -O0 #-}
  2. import Data.List
  3. sum' = foldl' (+) 0
  4. main = print $ sum' [1..25000000]
Success #stdin #stdout 4.6s 3596KB
stdin
Standard input is empty
stdout
312500012500000