Project Euler Problem 15
http://projecteuler.net/index.php?section=problems&id=15
20×20のマス目の左上から右下へのルートは何通りか。
高校の順列・組み合わせ分野であったなこーゆーの。
40C20でおk。
main = print $ conbination 40 20 conbination :: Integer -> Integer -> Integer conbination n r = (product [1..n]) `div` (product [1..(n-r)] * product [1..r])