st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-21 14:18:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

More ostap

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-21 22:03:11 +03:00
parent f1f3c8aff0
commit 9163747ff3
7 changed files with 175 additions and 145 deletions
Download patch file Download diff file Expand all files Collapse all files

11
stdlib/Fun.expr
View file

@ -4,21 +4,20 @@ public fun id (x) {
x
}
public infixl $ after * (f, x) {
public infixl $ after := (f, x) {
f (x)
}
public infix # at $ (f, g) {
public infix # after * (f, g) {
fun (x) {
f (g (x))
}
}
public fun fix (f) {
local knot = ref (0);
knot ::= fun () {fun (x) {f (deref (knot) ()) (x)}};
local knot = ref ({});
knot ::= fun (x) {f (deref (knot)) (x)};
deref (knot) ()
deref (knot)
}