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 -> fs !! k !! i) [0..] where fs = map f [0..]
  8.  
  9. te = fn expensive
  10.  
  11. main = print $ sum $ map (te !! 10) $ [1..10] >>= replicate 6
Success #stdin #stdout 1.75s 6236KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
600
https://ideone.com/QwIa6t
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!