implement fibspd

==> aufgabe1 done

2 files changed, 15 insertions, 1 deletions

diff --git a/AufgabeFFP1.hs b/AufgabeFFP1.hs
index b393fc2..705dce1 100644
--- a/AufgabeFFP1.hs
+++ b/AufgabeFFP1.hs
@@ -43,3 +43,8 @@ fibdiag (n)
 
 fibdiags :: [[Integer]]
 fibdiags = map (fibdiag) [1,2..]
+
+-------------------------------------------------------------------------------
+
+fibspd :: [Integer]
+fibspd = map (\x -> sum x) fibdiags
diff --git a/TestAufgabeFFP1.hs b/TestAufgabeFFP1.hs
index 1fa5c35..4a38f3c 100644
--- a/TestAufgabeFFP1.hs
+++ b/TestAufgabeFFP1.hs
@@ -67,8 +67,17 @@ fibdiagsTests = TestList [fibdiags1]
 
 -------------------------------------------------------------------------------
 
+fibspd1 :: Test
+fibspd1 = TestCase (assertEqual "fibspd"
+  [1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946,17711,28657]
+  (take 23 fibspd))
+
+fibspdTests = TestList [fibspd1]
+
+-------------------------------------------------------------------------------
+
 tests :: [Test]
-tests = [pof2s1, pdTests, fibdiagTests, fibdiagsTests]
+tests = [pof2s1, pdTests, fibdiagTests, fibdiagsTests, fibspdTests]
 
 main = do
   forM tests $ \test ->