1 files changed, 5 insertions, 0 deletions

diff --git a/AufgabeFFP1.hs b/AufgabeFFP1.hs
index 88d46b4..b393fc2 100644
--- a/AufgabeFFP1.hs
+++ b/AufgabeFFP1.hs
@@ -38,3 +38,8 @@ fibdiag (n)
   | otherwise = map (\x -> pd !! (fromInteger n - x) !! (x - 1)) [1..count]
   where
     count = (fromInteger n + 1) `div` 2
+
+-------------------------------------------------------------------------------
+
+fibdiags :: [[Integer]]
+fibdiags = map (fibdiag) [1,2..]