diff options
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 |