mirror of
https://github.com/IBM/fp-go.git
synced 2025-06-23 00:27:49 +02:00
15 lines
342 B
Go
15 lines
342 B
Go
|
package monoid
|
||
|
|
|
||
|
|
import (
|
||
|
|
F "github.com/ibm/fp-go/function"
|
||
|
|
S "github.com/ibm/fp-go/semigroup"
|
||
|
|
)
|
||
|
|
|
||
|
|
// FunctionMonoid forms a monoid as long as you can provide a monoid for the codomain.
|
||
|
|
func FunctionMonoid[A, B any](M Monoid[B]) Monoid[func(A) B] {
|
||
|
|
return MakeMonoid(
|
||
|
|
S.FunctionSemigroup[A, B](M).Concat,
|
||
|
|
F.Constant1[A](M.Empty()),
|
||
|
|
)
|
||
|
|
}
|