go/fp-go
1
0
Fork 0
mirror of https://github.com/IBM/fp-go.git synced 2025-08-10 22:31:32 +02:00
Code Issues Releases Activity

fix: unwrap deep nesting of applicatives

Browse Source 
Signed-off-by: Dr. Carsten Leue <carsten.leue@de.ibm.com>
This commit is contained in:
Dr. Carsten Leue
2023-07-13 22:38:51 +02:00
parent 177979354c
commit e42d399509
7 changed files with 76 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cli/apply.go
View File

@@ -86,23 +86,19 @@ func generateSequenceT(f *os.File, i int) {
}
fmt.Fprintf(f, ") HKT_TUPLE%d {\n", i)
fmt.Fprintf(f, " return ")
for j := i - 1; j >= 1; j-- {
fmt.Fprintf(f, "fap%d(", j)
}
fmt.Fprintf(f, "fmap(t1, tupleConstructor%d[", i)
fmt.Fprintf(f, " r1 := fmap(t1, tupleConstructor%d[", i)
for j := 0; j < i; j++ {
if j > 0 {
fmt.Fprintf(f, ", ")
}
fmt.Fprintf(f, "T%d", j+1)
}
fmt.Fprintf(f, "]())")
fmt.Fprintf(f, "]())\n")
for j := 1; j < i; j++ {
fmt.Fprintf(f, ", t%d)", j+1)
fmt.Fprintf(f, " r%d := fap%d(r%d, t%d)\n", j+1, j, j, j+1)
}
fmt.Fprintf(f, "\n")
fmt.Fprintf(f, " return r%d\n", i)
fmt.Fprintf(f, "}\n")
}