From 431e5c6cbc7d6fa745d841d7943ae4b1f63901e4 Mon Sep 17 00:00:00 2001 From: manuel Date: Fri, 23 Mar 2012 19:10:34 +0100 Subject: implement fibspd ==> aufgabe1 done --- AufgabeFFP1.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'AufgabeFFP1.hs') 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 -- cgit v1.2.3