Problem 53

comb  n r = comb' n $min r (n-r)
comb' n r = product [(n-r+1)..n] `div` product [1..r]
combs n = map (comb n) [..n]
check =length.filter (>1000000).combs
p053 = sum.map check$[1..100]
More Reading
Newer// Problem 48
Older// Problem 35