aboutsummaryrefslogtreecommitdiff
path: root/algebraic-structures.monoid.fold.scm
blob: b18c03c8140c4cd3e8743ce1d991b17aaa2e9773 (about) (plain)
1
2
3
4
(functor ((algebraic-structures monoid fold) (M (<> unit)) (F (foldl foldr))) (fold)
  (import scheme M F)

  (define (fold x) (foldl <> unit x)))