diff options
Diffstat (limited to 'AufgabeFFP1.hs')
| -rw-r--r-- | AufgabeFFP1.hs | 5 |
1 files changed, 5 insertions, 0 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) | |||
| 43 | 43 | ||
| 44 | fibdiags :: [[Integer]] | 44 | fibdiags :: [[Integer]] |
| 45 | fibdiags = map (fibdiag) [1,2..] | 45 | fibdiags = map (fibdiag) [1,2..] |
| 46 | |||
| 47 | ------------------------------------------------------------------------------- | ||
| 48 | |||
| 49 | fibspd :: [Integer] | ||
| 50 | fibspd = map (\x -> sum x) fibdiags | ||