aboutsummaryrefslogtreecommitdiff
path: root/algebraic-structs.monoid.make.fold.scm
blob: 995bae5484abb0d6d9d3a70efc01a208202ea5ea (about) (plain)
1
2
3
4
(functor ((algebraic-structs monoid make fold) (M (op id)) (F (foldl foldr))) (fold)
  (import scheme M F)

  (define (fold x) (foldl op id x)))