Ideone.com

fork download

copy

main = print (a 0 10)
  where a k 1 = 52 - k
        a k n = k*(a k (n-1)) + (52-k)*(a (k+1) (n-1))

Success #stdin #stdout 0s 6224KB

stdin

copy

Standard input is empty

stdout

copy

121376589000703452

https://ideone.com/0ff7eE

language:

Haskell (ghc 8.4.4)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!