day2-2-array.p

/*
--- Part Two ---

"Good, the new computer seems to be working correctly! Keep it nearby during this mission - you'll probably use it again. Real Intcode computers support many more features than your new one, but we'll let you know what they are as you need them."

"However, your current priority should be to complete your gravity assist around the Moon. For this mission to succeed, we should settle on some terminology for the parts you've already built."

Intcode programs are given as a list of integers; these values are used as the initial state for the computer's memory. When you run an Intcode program, make sure to start by initializing memory to the program's values. A position in memory is called an address (for example, the first value in memory is at "address 0").

Opcodes (like 1, 2, or 99) mark the beginning of an instruction. The values used immediately after an opcode, if any, are called the instruction's parameters. For example, in the instruction 1,2,3,4, 1 is the opcode; 2, 3, and 4 are the parameters. The instruction 99 contains only an opcode and has no parameters.

The address of the current instruction is called the instruction pointer; it starts at 0. After an instruction finishes, the instruction pointer increases by the number of values in the instruction; until you add more instructions to the computer, this is always 4 (1 opcode + 3 parameters) for the add and multiply instructions. (The halt instruction would increase the instruction pointer by 1, but it halts the program instead.)

"With terminology out of the way, we're ready to proceed. To complete the gravity assist, you need to determine what pair of inputs produces the output 19690720."

The inputs should still be provided to the program by replacing the values at addresses 1 and 2, just like before. In this program, the value placed in address 1 is called the noun, and the value placed in address 2 is called the verb. Each of the two input values will be between 0 and 99, inclusive.

Once the program has halted, its output is available at address 0, also just like before. Each time you try a pair of inputs, make sure you first reset the computer's memory to the values in the program (your puzzle input) - in other words, don't reuse memory from a previous attempt.

Find the input noun and verb that cause the program to produce the output 19690720. What is 100 * noun + verb? (For example, if noun=12 and verb=2, the answer would be 1202.)

*/

FUNCTION runProgram RETURNS INTEGER (
    piNoun AS INTEGER,
    piVerb AS INTEGER):

    DEFINE VARIABLE iRam AS INTEGER EXTENT INITIAL [{C:\User\JCCARDOT\Perso\Travail\aoc\aoc2019\day2.txt}]    NO-UNDO.

    DEFINE VARIABLE iPC     AS INTEGER     NO-UNDO.

    iRam[2] = piNoun.
    iRam[3] = piVerb.

    iPC = 1.
    blkProgram:
    DO WHILE TRUE:
        CASE iRam[iPC]:
            WHEN 1 THEN DO:
                iRam[iRam[iPC + 3] + 1] = iRam[iRam[iPC + 1] + 1] + iRam[iRam[iPC + 2] + 1].
                iPC = iPC + 4.
            END.
            WHEN 2 THEN DO:
                iRam[iRam[iPC + 3] + 1] = iRam[iRam[iPC + 1] + 1] * iRam[iRam[iPC + 2] + 1].
                iPC = iPC + 4.
            END.
            WHEN 99 THEN
                LEAVE blkProgram.
            OTHERWISE DO:
                MESSAGE SUBSTITUTE("Invalid opcode &2 at address &1", iPC, iRam[iPC + 1])
                    VIEW-AS ALERT-BOX INFO BUTTONS OK.
                QUIT.
            END.
        END CASE.
    END.

    RETURN iRam[1].

END FUNCTION.

ETIME(YES).

/* let's brute force this */

DEFINE VARIABLE iNoun AS INTEGER     NO-UNDO.
DEFINE VARIABLE iVerb AS INTEGER     NO-UNDO.

blkRun:
DO iNoun = 0 TO 99:
    DO iVerb = 0 TO 99:
        IF runProgram(iNoun, iVerb) = 19690720 /* expected result */ THEN
            LEAVE blkRun.
    END.
END.

MESSAGE ETIME SKIP 100 * iNoun + iVerb
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
/*
---------------------------
Information (Press HELP to view stack trace)
---------------------------
471 
5296
---------------------------
Aceptar   Ayuda   
---------------------------
*/