Fold für Listen

• Definieren Sie das Rekursionmuster:

  lfold :: b -> (a -> b -> b) -> [a] -> b
  lfold c h l = case l of
      []     -> undefined
      x : xs -> undefined
  

• Definieren Sie damit Funktionen:
  • Summe aller Elemente einer Liste,
  • Produkt aller Elemente einer Liste,
  • Länge einer Liste