dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

add quantity to parser

Browse Source
This commit is contained in:
Steve Dunham
2024-11-25 21:12:13 -08:00
parent da1cbd2ce6
commit 07cbeec6cc
7 changed files with 76 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
port/Prelude.newt
View File

@@ -207,11 +207,11 @@ pfunc listToArray : {a : U} -> List a -> Array a := "
}
"
pfunc alen : {a : U} -> Array a -> Int := "(a,arr) => arr.length"
pfunc aget : {a : U} -> Array a -> Int -> a := "(a, arr, ix) => arr[ix]"
pfunc aempty : {a : U} -> Unit -> Array a := "() => []"
pfunc alen : {0 a : U} -> Array a -> Int := "(a,arr) => arr.length"
pfunc aget : {0 a : U} -> Array a -> Int -> a := "(a, arr, ix) => arr[ix]"
pfunc aempty : {0 a : U} -> Unit -> Array a := "() => []"
pfunc arrayToList : {a} → Array a → List a := "(a,arr) => {
pfunc arrayToList : {0 a} → Array a → List a := "(a,arr) => {
let rval = Nil(a)
for (let i = arr.length - 1;i >= 0; i--) {
rval = _$3A$3A_(a, arr[i], rval)