AoC10ab 2022

ProcessFile(fileName) {
    FileRead, data, % fileName

    return RegExReplace(data, "`am)(addx)", "noop`n$1")
}

ProcessData(data) {
    cycle    := 1
    register := 1
    signal   := 0
    display  := ""

    For k, v in StrSplit(data, "`n") {
        ctr := Mod(cycle - 1, 40)
        display .= ((abs(ctr - register) <= 1) ? "█" : " ")
        if (ctr = 39)
            display  .= "`n"
        if RegExMatch(v, "^addx +(-?\d+)", m)
            register += m1
        if (Mod(++cycle, 40) = 20)
            signal += cycle * register

    }

    return ("Part 1: " signal "`n`nPart 2:`n`n" display)
}

Msgbox, % ProcessData(ProcessFile(A_ScriptDir "\aoc10.txt"))