分からない問題はここに書いてね447

[0933 １３２人目の素数さん 2018/10/21(日) 17:30:10.66 ID:l2E3XuiN]

Prelude> choose (n,r) = product[1..n] `div` product[1..n-r] `div` product[1..r]

Prelude> fromIntegral(sum $ map (\k -> choose(24,k)*choose(9,12-k)*4^(12-k)) [0..12]) /fromIntegral(choose(60,12))
0.1106278297721166