45 lines
917 B
Text
45 lines
917 B
Text
|
class Intcode
|
||
|
|
from_tape: (tape) =>
|
||
|
|
@tape = tape
|
||
|
|
@ops = {
|
||
|
|
[99]: -> EXIT, 1
|
||
|
|
}
|
||
|
|
|
||
|
|
new: (code) =>
|
||
|
|
counter = 1
|
||
|
|
tape = {}
|
||
|
|
for n in code\gmatch "%d+"
|
||
|
|
tape[counter] = tonumber n
|
||
|
|
counter += 1
|
||
|
|
@from_tape tape
|
||
|
|
|
||
|
|
clone: (target) =>
|
||
|
|
@from_tape {k,v for k,v in ipairs target.tape}
|
||
|
|
|
||
|
|
deref: (n) => @tape[@tape[n] + 1]
|
||
|
|
deref_set: (n, v) => @tape[@tape[n] + 1] = v
|
||
|
|
|
||
|
|
binary_store_op: (f) ->
|
||
|
|
(p) =>
|
||
|
|
result = f get_by_ival(@, p + 1), get_by_ival(@, p + 2)
|
||
|
|
set_by_ival @, p + 3, result
|
||
|
|
result, 4
|
||
|
|
|
||
|
|
run: (ops) =>
|
||
|
|
i = 1
|
||
|
|
while i <= #@tape
|
||
|
|
print "TAPE"
|
||
|
|
s = ""
|
||
|
|
for i, v in ipairs @tape
|
||
|
|
s = s .. tostring(v) .. " "
|
||
|
|
print s
|
||
|
|
print "END TAPE"
|
||
|
|
print #@tape
|
||
|
|
print @tape[i], @tape[i + 1], @tape[i + 2], @tape[@tape[i + 1] + 1], @tape[@tape[i + 2] + 1], @tape[i + 3]
|
||
|
|
result, jump = ops[@tape[i]](@tape, i)
|
||
|
|
if result == EXIT
|
||
|
|
print EXIT
|
||
|
|
break
|
||
|
|
i += math.max jump, 1
|
||
|
|
@
|