introduce new word crouch

Author: nmorse

dist/index.ems.js

@@ -3590,6 +3590,23 @@ var coreWords = {
  return [s, pl];
  }
  },
+ 'crouch': {
+ sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
+ typeCompose: "compose",
+ compose: function (s, pl) {
+ var words = toPLOrNull(s === null || s === void 0 ? void 0 : s.pop());
+ var argList = toArrOfStrOrNull(s === null || s === void 0 ? void 0 : s.pop());
+ if (words !== null && argList) {
+ var values = map(function () { return s === null || s === void 0 ? void 0 : s.pop(); }, argList);
+ var localWD = zipObj(reverse(argList), values);
+ var newWords = toPLOrNull(subInWD(localWD, words));
+ if (newWords) {
+ s.push(newWords);
+ }
+ }
+ return [s, pl];
+ }
+ },
  'pounce': {
  sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
  typeCompose: "compose",

dist/index.js

@@ -3596,6 +3596,23 @@ var coreWords = {
  return [s, pl];
  }
  },
+ 'crouch': {
+ sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
+ typeCompose: "compose",
+ compose: function (s, pl) {
+ var words = toPLOrNull(s === null || s === void 0 ? void 0 : s.pop());
+ var argList = toArrOfStrOrNull(s === null || s === void 0 ? void 0 : s.pop());
+ if (words !== null && argList) {
+ var values = r.map(function () { return s === null || s === void 0 ? void 0 : s.pop(); }, argList);
+ var localWD = r.zipObj(r.reverse(argList), values);
+ var newWords = toPLOrNull(subInWD(localWD, words));
+ if (newWords) {
+ s.push(newWords);
+ }
+ }
+ return [s, pl];
+ }
+ },
  'pounce': {
  sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
  typeCompose: "compose",

package.json

@@ -1,6 +1,6 @@
 {
  "name": "@pounce-lang/core",
- "version": "2.3.0",
+ "version": "2.3.1",
  "description": "A concatenative programming language written in Javascript, Pounce has roots in Forth, Joy, Cat and Kitten.",
  "main": "dist/index.js",
  "module": "dist/index.ems.js",

src/words/core.ts

@@ -948,6 +948,26 @@ export const coreWords: WordDictionary = {
  return [s, pl];
  }
  },
+ 'crouch': {
+ sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
+ typeCompose: "compose",
+compose: (s, pl) => {
+ const words = toPLOrNull(s?.pop());
+ const argList = toArrOfStrOrNull(s?.pop());
+ if (words !== null && argList) {
+ const values: Word[] = r.map(() => s?.pop(), argList);
+ const localWD: { [index: string]: Word } =
+ r.zipObj(r.reverse(argList), values);
+ const newWords: ProgramList =
+ toPLOrNull(subInWD(localWD, words));
+
+ if (newWords) {
+ s.push(newWords);
+ }
+ }
+ return [s, pl];
+ }
+ },
  'pounce': {
  sig: [[{ type: 'list<string>', use: 'pop-each!' }, { type: 'P', use: 'run!' }], [{ type: 'runOf P' }]],
  typeCompose: "compose",

tests/index.js

@@ -86,7 +86,7 @@ const testIt = (p, expected_result) => {
 let testCount = 0;
 let allPassing = 1;
 allPassing &= testIt("Hello Pounce", ["Hello", "Pounce"]);
-allPassing &= testIt("words", [["words","word","dup","dup2","swap","drop","round","+","-","/","%","*","&","|","^","~","&&","||","!","E","LN10","LN2","LOG10E","LOG2E","PI","SQRT1_2","SQRT2","abs","acos","acosh","asin","asinh","atan","atan2","atanh","cbrt","ceil","cos","cosh","exp","expm1","floor","hypot","log","log10","log1p","log2","max","min","pow","seedrandom","random","sign","sin","sinh","sqrt","tan","tanh","trunc","play","pounce","dip","dip2","rotate","rollup","rolldown","if-else","ifte","=","==","!=",">","<",">=","<=","concat","cons","uncons","push","pop","constrec","linrec","linrec5","binrec","times","map","map2","filter","reduce","split","size","outAt","inAt","depth","stack-copy"]]);
+allPassing &= testIt("words", [["words","word","dup","dup2","swap","drop","round","+","-","/","%","*","&","|","^","~","&&","||","!","E","LN10","LN2","LOG10E","LOG2E","PI","SQRT1_2","SQRT2","abs","acos","acosh","asin","asinh","atan","atan2","atanh","cbrt","ceil","cos","cosh","exp","expm1","floor","hypot","log","log10","log1p","log2","max","min","pow","seedrandom","random","sign","sin","sinh","sqrt","tan","tanh","trunc","play","crouch","pounce","dip","dip2","rotate","rollup","rolldown","if-else","ifte","=","==","!=",">","<",">=","<=","concat","cons","uncons","push","pop","constrec","linrec","linrec5","binrec","times","map","map2","filter","reduce","split","size","outAt","inAt","depth","stack-copy"]]);
 allPassing &= testIt("[dup2] word", [{"sig":[[{"type":"A","use":"observe"},{"type":"B","use":"observe"}],[{"type":"A"},{"type":"B"},{"type":"A"},{"type":"B"}]],"typeCompose":"compose","compose":[["dup"],"dip","dup",["swap"],"dip"]}]);
 allPassing &= testIt("[word] word", [{"sig":[[{"type":"list<string>)"}],[{"type":"record"}]],"typeCompose":"compose"}]);
 allPassing &= testIt("497 seedrandom random", [0.5311601270295587]);
@@ -250,6 +250,11 @@ allPassing &= testIt(`
 [size 1 <=] [] [uncons [>] split] [concat] binrec
 `, [["a", "b", "b", "c", "d", "e", "f", "g", "h", "j"]]);
 
+allPassing &= testIt("0 0 [a b] [a b +] crouch", [[0, 0, '+']]);
+allPassing &= testIt("22 -3 [a b] [a b a + *] crouch", [[22, -3, 22, '+', '*']]);
+allPassing &= testIt(`0.5 1 [m b] [[x] [m x * b +] pounce] crouch`, [[['x'], [0.5, 'x', '*', 1, '+'], 'pounce']]);
+allPassing &= testIt(`4 0.5 1 [m b] [[x] [m x * b +] pounce] crouch play`, [3]);
+
 allPassing &= testIt("0 0 [a b] [a b +] pounce", [0]);
 allPassing &= testIt("0 [a] [a] pounce", [0]);