go/fp-go
1
0
Fork 0
mirror of https://github.com/IBM/fp-go.git synced 2025-06-23 00:27:49 +02:00
Code Issues Releases Activity

initial checkin

Browse Source 
Signed-off-by: Dr. Carsten Leue <carsten.leue@de.ibm.com>
This commit is contained in:
Dr. Carsten Leue
2023-07-07 22:31:06 +02:00
parent 71c47ca560
commit c07df5c771
128 changed files with 5827 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
semigroup/array.go Normal file
View File

@ -0,0 +1,21 @@
package semigroup
import (
M "github.com/ibm/fp-go/magma"
)
func GenericMonadConcatAll[GA ~[]A, A any](s Semigroup[A]) func(GA, A) A {
return M.GenericMonadConcatAll[GA](M.MakeMagma(s.Concat))
}
func GenericConcatAll[GA ~[]A, A any](s Semigroup[A]) func(A) func(GA) A {
return M.GenericConcatAll[GA](M.MakeMagma(s.Concat))
}
func MonadConcatAll[A any](s Semigroup[A]) func([]A, A) A {
return GenericMonadConcatAll[[]A](s)
}
func ConcatAll[A any](s Semigroup[A]) func(A) func([]A) A {
return GenericConcatAll[[]A](s)
}