hacklab/strudel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mondo: add .. operator

Browse source
This commit is contained in:
Felix Roos 2025-03-20 09:34:47 +01:00
parent 55a5f1d62a
commit 3505732afa
No known key found for this signature in database
3 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
packages/mondough/mondough.mjs
View file

@ -21,7 +21,7 @@ strudelScope.leaf = (token, scope) => {
strudelScope.call = (fn, args, name) => {
const [pat, ...rest] = args;
if (!['seq', 'cat', 'stack', ':'].includes(name)) {
if (!['seq', 'cat', 'stack', ':', '..'].includes(name)) {
args = [...rest, pat];
}
return fn(...args);
@ -30,9 +30,18 @@ strudelScope.call = (fn, args, name) => {
strudelScope['*'] = fast;
strudelScope['/'] = slow;
// : operator
const tail = (pat, friend) => pat.fmap((a) => (b) => (Array.isArray(a) ? [...a, b] : [a, b])).appLeft(friend);
strudelScope[':'] = tail;
// .. operator
const arrayRange = (start, stop, step = 1) =>
Array.from({ length: Math.abs(stop - start) / step + 1 }, (_, index) =>
start < stop ? start + index * step : start - index * step,
);
const range = (min, max) => min.squeezeBind((a) => max.bind((b) => seq(...arrayRange(a, b))));
strudelScope['..'] = range;
export function mondo(code, offset = 0) {
if (Array.isArray(code)) {
code = code.join('');