mbk/concat
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nothing's falsity can unwind the unwary

Browse source
This commit is contained in:
mehbark 2023-04-17 16:44:10 -04:00
parent 4cb13e0a16
commit 855e55bff7
1 changed files with 49 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/App.tsx
View file

@ -246,7 +246,6 @@ function parse_op(op: string): Option<Op> {
case "swp": case "swp":
return op; return op;
} }
console.log(op);
} }
type State = { type State = {
@ -262,7 +261,7 @@ const INITIAL_STATE: State = {
}; };
function steps(state: State, ops: Op[], limit = 300, num_steps = 0): State[] { function steps(state: State, ops: Op[], limit = 300, num_steps = 0): State[] {
if (!ops[state.ip] || num_steps > limit) { if (typeof ops[state.ip] == "undefined" || num_steps > limit) {
return [state]; return [state];
} }
return cons( return cons(
@ -288,7 +287,9 @@ function step(state: State, op: Op): State {
if (typeof op == "number") { if (typeof op == "number") {
ns.stack.push(op); ns.stack.push(op);
} else { return ns;
}
switch (op) { switch (op) {
case "add": case "add":
binary_op(0, 0, (a, b) => a + b); binary_op(0, 0, (a, b) => a + b);
@ -338,7 +339,6 @@ function step(state: State, op: Op): State {
break; break;
} }
} }
}
return ns; return ns;
} }