haskell-foldl和foldr函数实现

-- myFoldl 给定一个函数，参数a，和数组b，a按照函数规则分别对b进行处理，得到a
myFoldl :: (a -> b -> a) -> a -> [b] -> a
myFoldl f e [] = e
myFoldl f e (x : xs) = myFoldl f (f e x) xs


-- myFoldr 给定一个函数，参数a，和数组b，数组b从后往前一次对a进行函数指定的操作
-- myFoldr :: (a -> b -> b) -> b -> [a] -> b
myFoldr :: (t1 -> t2 -> t2) -> t2 -> [t1] -> t2
myFoldr f e [] = e
myFoldr f e (x : xs) = f x (myFoldr f e xs)