1 files changed, 21 insertions, 0 deletions

diff --git a/TestAufgabeFFP4.hs b/TestAufgabeFFP4.hs
index 55a257c..ff341e5 100644
--- a/TestAufgabeFFP4.hs
+++ b/TestAufgabeFFP4.hs
@@ -43,7 +43,28 @@ cases1 = TestLabel "knapsack" $ TestList [
     (knapsack [(2,2), (3,3), (4,4), (5,5)] 5)
   ]
 
+-- from Aufgabe3.hs
+binom :: (Integer, Integer) -> Integer
+binom (n, k)
+    | k == 0 || n == k = 1
+    | otherwise = binom (n-1, k-1) + binom (n-1, k)
+
 cases2 = TestLabel "binomDyn" $ TestList [
+  TestCase $ assertEqual "8 nCr [0..7]"
+    [ binom (8, i) | i <- [0..7] ]
+    [ binomDyn (8, i) | i <- [0..7] ],
+  TestCase $ assertEqual "1 nCr 1"
+    (binom (1, 1))
+    (binomDyn (1, 1)),
+  TestCase $ assertEqual "2 nCr 1"
+    (binom (2, 1))
+    (binomDyn (2, 1)),
+  TestCase $ assertEqual "18 nCr 12"
+    (binom (18, 12))
+    (binomDyn (18, 12)),
+  TestCase $ assertEqual "5 nCr 0"
+    (binom (5, 0))
+    (binomDyn (5, 0))
   ]
 
 tests :: [Test]