mirror of
https://github.com/IBM/fp-go.git
synced 2025-06-23 00:27:49 +02:00
initial checkin
Signed-off-by: Dr. Carsten Leue <carsten.leue@de.ibm.com>
This commit is contained in:
23
array/traverse.go
Normal file
23
array/traverse.go
Normal file
@ -0,0 +1,23 @@
|
||||
package array
|
||||
|
||||
import "github.com/ibm/fp-go/internal/array"
|
||||
|
||||
func Traverse[A, B, HKTB, HKTAB, HKTRB any](
|
||||
_of func([]B) HKTRB,
|
||||
_map func(HKTRB, func([]B) func(B) []B) HKTAB,
|
||||
_ap func(HKTAB, HKTB) HKTRB,
|
||||
|
||||
f func(A) HKTB) func([]A) HKTRB {
|
||||
return array.Traverse[[]A](_of, _map, _ap, f)
|
||||
}
|
||||
|
||||
func MonadTraverse[A, B, HKTB, HKTAB, HKTRB any](
|
||||
_of func([]B) HKTRB,
|
||||
_map func(HKTRB, func([]B) func(B) []B) HKTAB,
|
||||
_ap func(HKTAB, HKTB) HKTRB,
|
||||
|
||||
ta []A,
|
||||
f func(A) HKTB) HKTRB {
|
||||
|
||||
return array.MonadTraverse(_of, _map, _ap, ta, f)
|
||||
}
|
Reference in New Issue
Block a user