opDupVal middle decrement case.

tristanmorgan · Jun 2, 2024 · 256ebc1 · 256ebc1
1 parent e2ed6aa
commit 256ebc1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/parser/tokenise.go b/parser/tokenise.go
@@ -86,7 +86,7 @@ func Tokenise(input io.ByteReader) (program []Instruction, err error) {
 					pc++
 					program = append(program, Instruction{opNoop, factors[0]})
 				}
-			case pc-jmpPc == 7: //looking for opDupVal
+			case pc-jmpPc == 7 || pc-jmpPc == 8: //looking for opDupVal
 				pointers, factors, ok := evalFactors(program[jmpPc+1 : pc])
 				if ok && factors[0] == 1 && factors[1] == 1 {
 					pc = jmpPc

diff --git a/parser/tokenise_test.go b/parser/tokenise_test.go
@@ -83,12 +83,15 @@ func TestTokenise(t *testing.T) {
 		},
 		{
 			"op_dup",
-			">[->>+>+<<<]",
+			">[->>+>+<<<]>[>>+<<-<<+>>]",
 			[]Instruction{
 				{opNoop, 0},
 				{opAddDp, 1},
 				{opDupVal, 2},
 				{opNoop, 3},
+				{opAddDp, 1},
+				{opDupVal, 2},
+				{opNoop, -2},
 			},
 		},
 		{