fork download 
  1. import Control.Parallel.Strategies
  2.  
  3. fib :: Integer -> Integer
  4. fib 0 = 0
  5. fib 1 = 1
  6. fib n = fib (n-1) + fib (n-2)
  7.  
  8. main = print . snd . runEval $ do
  9.          x <- rpar (fib 100)
  10.          y <- rpar (fib 100)
  11.          return (x,y)
  12.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/ajhkl3
language:
Haskell (ghc 8.4.4)
created:
12 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!