blob: 49d4e41074c20d3b4ea5fa672fa975161bf7d79c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module AufgabeFFP6
where
import Data.Array
(./.) :: Int -> Int -> Int
(./.) = div
myfoldl :: [(a -> b -> a)] -> a -> [b] -> a
myfoldl _ z [] = z
myfoldl (f:fs) z (x:xs) = myfoldl fs (f z x) xs
myfoldl' :: [(a -> a -> a)] -> [a] -> a
myfoldl' f (x:xs) = myfoldl f x xs
eval :: Array Int Int -> Array Int (Int -> Int -> Int) -> Int
eval a b = myfoldl' (elems b) (elems a)
--------------------------------------------------------------------------------
--yield :: Array Int Int -> Int -> [Array Int (Int -> Int -> Int)]
|
