fork download 
  1. fact :: Rational -> Rational
  2. fact 0 = 1
  3. fact n = n * fact (n - 1)
  4.  
  5. fact_binomial :: Rational -> Rational -> Rational
  6. fact_binomial a b = fact (a + b) / fact a / fact b
  7.  
  8. main = putStrLn $ show $ fact_binomial 800 800
Success #stdin #stdout 0.02s 3608KB
comments (?)
stdin 
Standard input is empty
stdout 
886758324272110719282468686879536361457351622657983619121681971864823233331589221250359432261468147135933370909829053538163845995985088712282515329522750222379031947188666517397254719707323414953335609483867048436232634405323188637876061293480030952312211193078478973979253741391505347189612395970898130251421740603364990257291343139048628543399749402864756324566872108155027609528759946296604108771462220362337026916630726896133207343677015896455480787250090029343572616299975784%1
https://ideone.com/uUtW3
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!