fork download
copy 
  1. import Data.List
  2.  
  3. expensive n = go (10^7) where
  4. 	go 0 = [0..n + 100]
  5. 	go n = go (n - 1)
  6.  
  7. fn f = map (\i k -> f k !! i) [0..]
  8.  
  9. te = fn expensive
  10.  
  11. main = print $ sum $ map (\i -> (te !! i) 40) [1..40]
Success #stdin #stdout 7.8s 6280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
820
https://ideone.com/hUGwaz
language:
Haskell (ghc 8.4.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!