From 9a0159cc0ff165f33527c9a4fe1a8ac0a2afc15b Mon Sep 17 00:00:00 2001 From: Matthias Wisniowski Date: Sat, 14 Apr 2012 16:27:03 +0200 Subject: Testcases for 2 --- AufgabeFFP2.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'AufgabeFFP2.hs') diff --git a/AufgabeFFP2.hs b/AufgabeFFP2.hs index 0415b32..7ed19fc 100644 --- a/AufgabeFFP2.hs +++ b/AufgabeFFP2.hs @@ -69,11 +69,11 @@ f z k = g z k h -- actual function g (converts Int to Integer for more precision) g :: Int -> Int -> (Integer -> Integer -> Float) -> Float -g z k h = sum $ map (h $ fromIntegral z) [1..(fromIntegral k)] +g z k h = sum $ map (h $ fromIntegral z) [0..(fromIntegral k)] -- helper function h using mem-table for the power-series (z^i) and for factorial (i!) hMT :: Integer -> Integer -> Float -hMT z i = (fromInteger $ pofNs z !! (fromInteger i)) / (fromInteger $ facs !! (fromInteger i-1)) +hMT z i = (fromInteger $ pofNs z !! (fromInteger i)) / (fromInteger $ facs !! (fromInteger i)) -- helper function h without memoization h :: Integer -> Integer -> Float @@ -98,4 +98,4 @@ gz n -- goedel-number generator gzs :: [Integer] -gzs = map gz [1..] +gzs = map gz [0..] -- cgit v1.2.3