C_C++
Haskell
10.hs
2.hs
3.hs
4.hs
5.hs
7.hs
dist.hs
guards.hs
hw.hs
operators.hs
prime.hs
test.hs
unzip.hs
zh_I.hs
zh_II.hs
Java
LaTeX
Misc.
Python
Vim
Webdev
git
.gitignore
Makefile
9 lines
201 B
Haskell
9 lines
201 B
Haskell
factorial n =
|
|
if n == 0
|
|
then 1
|
|
else n * factorial (n-1)
|
|
|
|
over n k = (factorial n) / (factorial k * factorial (n-k))
|
|
|
|
probabilityDistribution bias n k = (n `over` k) * bias**k * (1 - bias)**(n-k)
|