kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

n-dimensional nth

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-10 23:07:06 +00:00
parent 6909db0e3f
commit b6540e8d18
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
kiss/src/kiss/SpecialForms.hx
View File

@@ -46,9 +46,13 @@ class SpecialForms {
}; };
function arrayAccess(wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) { function arrayAccess(wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) {
return EArray(k.convert(args[0]), k.convert(args[1])).withMacroPosOf(wholeExp); var exp = k.convert(args[0]);
for (dimension in 1...args.length) {
exp = EArray(exp, k.convert(args[dimension])).withMacroPosOf(wholeExp);
}
return exp;
}; };
k.doc("nth", 2, 2, "(nth <list> <idx>)"); k.doc("nth", 2, null, "(nth <list> <idx> <?n-dimensional indices...>)");
map["nth"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> { map["nth"] = (wholeExp:ReaderExp, args:Array<ReaderExp>, k:KissState) -> {
arrayAccess(wholeExp, args, k); arrayAccess(wholeExp, args, k);
}; };