codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
module Main where choose n 0 = 1 choose 0 k = 0 choose n k = choose (n-1) (k-1) * n `div` k multichoose n k = (n + k - 1) `choose` k main = do print $ 5 `multichoose` 3
Private
[
?
]
Run code
Submit