mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-05 22:38:44 +00:00
eta in test
This commit is contained in:
parent
19252991a5
commit
eeddb0b25a
4 changed files with 6 additions and 6 deletions
|
|
@ -9,7 +9,7 @@ public fun id (x) {
|
|||
x
|
||||
}
|
||||
|
||||
public infixl $ after := (f, x) {
|
||||
public infixr $ after := (f, x) {
|
||||
f (x)
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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)}}
|
||||
)
|
||||
)
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue