fork(1) download
copy 
  1. main = interact $ show . ans . (read :: String -> Integer)
  2.  
  3. c n k = div (product [n-k+1..n]) (product [1..k])
  4.  
  5. d p n k f = sum [((-1)^(k-p*n-i))*(c n i)*(c (-n) (k-p*n-(f-p)*i)) | i <- [0..(div (k-n*p) (f-p))]]
  6.  
  7. ans t = sum [d 1 i t 10 | i <- [0..t]]
Success #stdin #stdout 0s 6304KB
comments (?)
stdin
copy 
73
stdout
copy 
5029128545119187190576
https://ideone.com/vkD94q
language:
Haskell (ghc 8.4.4)
created:
9 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!