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

local -> var; scope reformatted; singleton is killed finally

Browse source
This commit is contained in:
Dmitry Boulytchev 2021-01-31 22:25:31 +03:00
parent 5ae88f820d
commit 216e716251
11067 changed files with 12168 additions and 12173 deletions
Download patch file Download diff file Expand all files Collapse all files

14
stdlib/Array.lama
View file

@ -8,7 +8,7 @@
import List;
public fun initArray (n, f) {
local a = makeArray (n), i;
var a = makeArray (n), i;
for i := 0, i < n, i := i + 1 do
a [i] := f (i)
@ -22,7 +22,7 @@ public fun mapArray (f, a) {
}
public fun arrayList (a) {
local i = 0, res = [0, {}], curr = res;
var i = 0, res = [0, {}], curr = res;
for skip, i < a.length, i := i + 1 do
curr [1] := a [i] : curr [1];
@ -33,7 +33,7 @@ public fun arrayList (a) {
}
public fun listArray (l) {
local a = makeArray (l.size);
var a = makeArray (l.size);
fun inner (i, l) {
case l of {} -> skip | h : t -> a[i] := h; inner (i+1, t) esac
@ -44,7 +44,7 @@ public fun listArray (l) {
}
public fun foldlArray (f, acc, a) {
local i = 0;
var i = 0;
for skip, i < a.length, i := i+1 do
acc := f (acc, a[i])
@ -54,7 +54,7 @@ public fun foldlArray (f, acc, a) {
}
public fun foldrArray (f, acc, a) {
local i = a.length - 1;
var i = a.length - 1;
for skip, i >= 0, i := i-1 do
acc := f (acc, a[i])
@ -64,7 +64,7 @@ public fun foldrArray (f, acc, a) {
}
public fun iterArray (f, a) {
local i = 0;
var i = 0;
for skip, i < a.length, i := i+1 do
f (a [i])
@ -72,7 +72,7 @@ public fun iterArray (f, a) {
}
public fun iteriArray (f, a) {
local i = 0;
var i = 0;
for skip, i < a.length, i := i+1 do
f (i, a [i])