module Accumulate (..) where


accumulate : (a -> b) -> List a -> List b
accumulate func input =
  List.foldr (\v c -> func v :: c) [] input