fork download 
  1. main = do putStrLn $ show $ alpha 20
  2.  
  3. fact 0 = 1
  4. fact n = n * fact (n - 1)
  5.  
  6. alpha 1 = 7
  7. alpha 2 = 2
  8. alpha 3 = 1
  9. alpha n = fact (n + 1) * alpha(n - 1) + 
  10.                      5 * alpha(n - 2) + 
  11.                      7 * alpha(n - 3)
Success #stdin #stdout 0.03s 3592KB
comments (?)
stdin 
Standard input is empty
stdout 
337287718866785762145319419276684707245288652587012048519128699912313232803243580980731548354841381915321299478301900599151755403321095038748459986921908595870502701902699658
https://ideone.com/cfwO3
language:
Haskell (ghc 8.4.4)
created:
14 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!