RosettaCodeData/Task/Reverse-a-string/Haskell/reverse-a-string-2.hs

accumulatingReverse :: [a] -> [a]
accumulatingReverse lst =
  let rev xs a = foldl (flip (:)) a xs
  in rev lst []