eta in test

This commit is contained in:
Dmitry Boulytchev 2021-01-12 01:14:18 +03:00
parent 19252991a5
commit eeddb0b25a
4 changed files with 6 additions and 6 deletions

View file

@ -9,7 +9,7 @@ public fun id (x) {
x
}
public infixl $ after := (f, x) {
public infixr $ after := (f, x) {
f (x)
}

View file

@ -4,10 +4,10 @@ import Fun;
fun many (a) {
memo (
fun (k) {
eta (
empty @ lift({})
| many (a) |> fun (as) {a @ fun (x) {as +++ singleton (x)}} $ k
}
| many (a) |> fun (as) {a @ fun (x) {as +++ singleton (x)}}
)
)
}