diff options
| author | manuel <manuel@mausz.at> | 2012-05-14 13:49:11 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-05-14 13:49:11 +0200 |
| commit | e69ce73532aacaeda9958ac523ab7e49e9470ce1 (patch) | |
| tree | 7a598871e5679fa3683bf3c18707ddffde3b359e /AufgabeFFP6.hs | |
| parent | 019b36815c16c44729f25db08395bc0663bb2653 (diff) | |
| download | ffp-e69ce73532aacaeda9958ac523ab7e49e9470ce1.tar.gz ffp-e69ce73532aacaeda9958ac523ab7e49e9470ce1.tar.bz2 ffp-e69ce73532aacaeda9958ac523ab7e49e9470ce1.zip | |
implement tits-operator (./.)
Diffstat (limited to 'AufgabeFFP6.hs')
| -rw-r--r-- | AufgabeFFP6.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/AufgabeFFP6.hs b/AufgabeFFP6.hs index ff16ba8..49d4e41 100644 --- a/AufgabeFFP6.hs +++ b/AufgabeFFP6.hs | |||
| @@ -3,6 +3,9 @@ where | |||
| 3 | 3 | ||
| 4 | import Data.Array | 4 | import Data.Array |
| 5 | 5 | ||
| 6 | (./.) :: Int -> Int -> Int | ||
| 7 | (./.) = div | ||
| 8 | |||
| 6 | myfoldl :: [(a -> b -> a)] -> a -> [b] -> a | 9 | myfoldl :: [(a -> b -> a)] -> a -> [b] -> a |
| 7 | myfoldl _ z [] = z | 10 | myfoldl _ z [] = z |
| 8 | myfoldl (f:fs) z (x:xs) = myfoldl fs (f z x) xs | 11 | myfoldl (f:fs) z (x:xs) = myfoldl fs (f z x) xs |