From 03f9b3f6712a35afbe2f705401e3c776425fb67f Mon Sep 17 00:00:00 2001 From: manuel Date: Mon, 30 Apr 2012 12:32:15 +0200 Subject: some draft --- AufgabeFFP4.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) 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)) + -- cgit v1.2.3