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

Return expression eliminated

Browse source
This commit is contained in:
Dmitry Boulytchev 2021-01-31 19:11:03 +03:00
parent 7eb3e223b8
commit 297139c72a
114 changed files with 37 additions and 1018 deletions
Download patch file Download diff file Expand all files Collapse all files

48
stdlib/Collection.lama
View file

@ -305,30 +305,30 @@ public fun emptyMemo () {
}
public fun lookupMemo (mm@[p, m], v) {
case p of
#fun -> if p (v) then return v fi
| _ -> skip
esac;
case v of
#unboxed -> v
| _ ->
case findMap (m, v) of
Some (w) -> w
| None ->
case v of
#string -> mm[1] := addMap (m, v, v); v
| _ ->
local vc = clone (v), i = case vc of #fun -> 1 | _ -> 0 esac;
for skip, i < v.length, i := i + 1 do
local vci = lookupMemo (mm, vc [i]);
vc [i] := vci
od;
mm [1] := addMap (m, vc, vc);
vc
esac
esac
esac
fun (x) {
case p of
#fun -> if p (v) then v else x () fi
| _ -> x ()
esac}
(fun () {case v of
#unboxed -> v
| _ ->
case findMap (m, v) of
Some (w) -> w
| None ->
case v of
#string -> mm[1] := addMap (m, v, v); v
| _ ->
local vc = clone (v), i = case vc of #fun -> 1 | _ -> 0 esac;
for skip, i < v.length, i := i + 1 do
local vci = lookupMemo (mm, vc [i]);
vc [i] := vci
od;
mm [1] := addMap (m, vc, vc);
vc
esac
esac
esac})
}
-- Maps of hashed pointers