Haskell foldl and foldr implementation

fold_implementation.hs

foldl' :: (a -> b -> a) -> a -> [b] -> a
foldl' fn acc [] = acc
foldl' fn acc (x:xs) = foldl' fn (fn acc x) xs

foldr' :: (a -> b -> b) -> b -> [a] -> b
foldr' fn acc [] = acc
foldr' fn acc (x:xs) = fn x (foldr' fn acc xs)

f :: Double -> Double -> Double
f = \acc x -> acc / x + 1

main :: IO ()
main = do
  print (foldl' f  0 [1,2,3])
  print (foldr' f  0 [1,2,3])
  print (foldr' (/) 1 [2,4,8])
  

@asarkar the foldl' from Data.List you are referring to is indeed the strict version of foldl but the original creator of this post was clearly referring to the standard versions of foldl and foldr as he also said in the title of the post.