From b0c85069dfd79b813b775af294403fa5e55f5818 Mon Sep 17 00:00:00 2001
From: anon <anon@anon.anon>
Date: Mon, 22 Jul 2024 19:39:19 +0200
Subject: [PATCH] Added 'Haskell/dist.hs'

---
 Haskell/dist.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 Haskell/dist.hs

diff --git a/Haskell/dist.hs b/Haskell/dist.hs
new file mode 100644
index 0000000..5422eeb
--- /dev/null
+++ 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)