1 files changed, 20 insertions, 0 deletions

diff --git a/AufgabeFFP4.hs b/AufgabeFFP4.hs
index 1521a5d..4b49a61 100644
--- a/AufgabeFFP4.hs
+++ b/AufgabeFFP4.hs
@@ -116,3 +116,23 @@ dynamic compute bnds = t
 
 -------------------------------------------------------------------------------
 
+bndsB :: (Integer, Integer) -> ((Integer, Integer), (Integer, Integer))
+bndsB (n, k) = ((0, 0), (n, k))
+{--  | k == 0 = ((0,0), (1,1))
+  | n == k = ((0,0), (1,1))
+  | n < k  = ((0,0), (0,0))
+  | otherwise = ((0, 0), (n, k))--}
+
+compB :: Table (Integer, Integer) (Integer, Integer) -> (Integer, Integer) -> (Integer, Integer)
+compB t (n, k)
+  | k == 0 = (1, 0)
+  | n == k = (1, 0)
+  | k == 1 = (n, 0)
+  | n < k  = (0, 0)
+  | otherwise = findTable t (n - 1, k - 1)
+
+binomDyn :: (Integer, Integer) -> (Integer, Integer)
+binomDyn (m, n) = findTable t (m, n)
+  where
+    t = dynamic compB (bndsB (m, n))
+