diff options
| author | manuel <manuel@mausz.at> | 2012-03-23 19:02:47 +0100 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-03-23 19:02:47 +0100 |
| commit | c9e70808546f2a6b58e1729d64e7ae8bbc17a98e (patch) | |
| tree | 973beee0921caea1bd60126cf8d1ee2f5759f593 /AufgabeFFP1.hs | |
| parent | 6d7f692ac38f9e2964aed76574c989990f1e573b (diff) | |
| download | ffp-c9e70808546f2a6b58e1729d64e7ae8bbc17a98e.tar.gz ffp-c9e70808546f2a6b58e1729d64e7ae8bbc17a98e.tar.bz2 ffp-c9e70808546f2a6b58e1729d64e7ae8bbc17a98e.zip | |
implement fibdiags (+ some indention stuff)
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 88d46b4..b393fc2 100644 --- a/AufgabeFFP1.hs +++ b/AufgabeFFP1.hs | |||
| @@ -38,3 +38,8 @@ fibdiag (n) | |||
| 38 | | otherwise = map (\x -> pd !! (fromInteger n - x) !! (x - 1)) [1..count] | 38 | | otherwise = map (\x -> pd !! (fromInteger n - x) !! (x - 1)) [1..count] |
| 39 | where | 39 | where |
| 40 | count = (fromInteger n + 1) `div` 2 | 40 | count = (fromInteger n + 1) `div` 2 |
| 41 | |||
| 42 | ------------------------------------------------------------------------------- | ||
| 43 | |||
| 44 | fibdiags :: [[Integer]] | ||
| 45 | fibdiags = map (fibdiag) [1,2..] | ||