Added 'Haskell/dist.hs'

2024-07-22 19:39:19 +02:00 · 2024-07-22 19:39:19 +02:00 · b0c85069df
commit b0c85069df
parent a0ea3fb80e
1 changed files with 8 additions and 0 deletions
--- a/Haskell/dist.hs
+++ b/Haskell/dist.hs
@ -0,0 +1,8 @@
+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)