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

  (define (fold x) (foldl op unit x)))