process: anArray
| op |
ram := (anArray splitOn: ',') collect: [ :ea | ea asInteger ].
in := ReadStream on: ram.
[ (op := in next) = 99 ] whileFalse: [ self processOpcode: op ].
^ self at: 0
process: anArray
| op |
ram := (anArray splitOn: ',') collect: [ :ea | ea asInteger ].
self put: 2 at: 3.
in := ReadStream on: ram.
[ (op := in next) = 99 ] whileFalse: [ self processOpcode: op ].
^ self at: 0