1 files changed, 3 insertions, 3 deletions

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..]