From 4e4c805b132d2672a9b33d9f04c33dd633c8712f Mon Sep 17 00:00:00 2001 From: manuel Date: Mon, 30 Apr 2012 13:03:13 +0200 Subject: adding tests for exercise 2 part 2 --- TestAufgabeFFP4.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) 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] -- cgit v1.2.3