diff options
| author | manuel <manuel@mausz.at> | 2012-05-14 01:54:29 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-05-14 01:54:29 +0200 |
| commit | 019b36815c16c44729f25db08395bc0663bb2653 (patch) | |
| tree | 428593b396bf07cd96e900f06f318fc697dc510d /AufgabeFFP6.hs | |
| parent | 9e3b842e86b1745f294819b61777cd46a53f5648 (diff) | |
| download | ffp-019b36815c16c44729f25db08395bc0663bb2653.tar.gz ffp-019b36815c16c44729f25db08395bc0663bb2653.tar.bz2 ffp-019b36815c16c44729f25db08395bc0663bb2653.zip | |
implementing part 1 (eval) of assignment 6
Diffstat (limited to 'AufgabeFFP6.hs')
| -rw-r--r-- | AufgabeFFP6.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/AufgabeFFP6.hs b/AufgabeFFP6.hs new file mode 100644 index 0000000..ff16ba8 --- /dev/null +++ b/AufgabeFFP6.hs | |||
| @@ -0,0 +1,19 @@ | |||
| 1 | module AufgabeFFP6 | ||
| 2 | where | ||
| 3 | |||
| 4 | import Data.Array | ||
| 5 | |||
| 6 | myfoldl :: [(a -> b -> a)] -> a -> [b] -> a | ||
| 7 | myfoldl _ z [] = z | ||
| 8 | myfoldl (f:fs) z (x:xs) = myfoldl fs (f z x) xs | ||
| 9 | |||
| 10 | myfoldl' :: [(a -> a -> a)] -> [a] -> a | ||
| 11 | myfoldl' f (x:xs) = myfoldl f x xs | ||
| 12 | |||
| 13 | eval :: Array Int Int -> Array Int (Int -> Int -> Int) -> Int | ||
| 14 | eval a b = myfoldl' (elems b) (elems a) | ||
| 15 | |||
| 16 | -------------------------------------------------------------------------------- | ||
| 17 | |||
| 18 | --yield :: Array Int Int -> Int -> [Array Int (Int -> Int -> Int)] | ||
| 19 | |||