fork download 
  1. main = print $ myfib 1000000
  2.  
  3. myfib n = round $ (1 / sq5) * ( (s (+)) - (s (-)))
  4.     where
  5.         s op = ((1 `op` sq5)/2)^(n+1)
  6.         sq5 = sqrt 5
Success #stdin #stdout 0s 6228KB
comments (?)
stdin 
Standard input is empty
stdout 
179769313486231590772930519078902473361797697894230657273430081157732675805500963132708477322407536021120113879871393357658789768814416622492847430639474124377767893424865485276302219601246094119453082952085005768838150682342462881473913110540827237163350510684586298239947245938479716304835356329624224137216
https://ideone.com/uUEpCa
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!