diff options
| author | manuel <manuel@mausz.at> | 2012-03-23 19:10:34 +0100 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-03-23 19:10:34 +0100 |
| commit | 431e5c6cbc7d6fa745d841d7943ae4b1f63901e4 (patch) | |
| tree | 8a3a623c1d56b5698084540a7e954da7366cd62f /AufgabeFFP1.hs | |
| parent | c9e70808546f2a6b58e1729d64e7ae8bbc17a98e (diff) | |
| download | ffp-431e5c6cbc7d6fa745d841d7943ae4b1f63901e4.tar.gz ffp-431e5c6cbc7d6fa745d841d7943ae4b1f63901e4.tar.bz2 ffp-431e5c6cbc7d6fa745d841d7943ae4b1f63901e4.zip | |
implement fibspd
==> aufgabe1 done
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 | ||