Advent of Code 2023 - Day 4: Scratchcards

aoc2023_day4_Scratchcards.ahk

; Copy Problem Data to Clipboard before you Run 
data := StrSplit(trim(clipboard), "`r", "`n")
results := 0

for each, line in data {
    winningCard := {}, x := 0
    line := StrSplit(StrReplace(line, "  ", " "), ": ").2 
    cards := StrSplit(line, " | ")
    for e, v in StrSplit(Trim(cards.1), " ")
        winningCard[v] := 1
    for k, v in StrSplit(Trim(cards.2), " ") {
        if (winningCard.HasKey(v))
            x := (x >= 1 ? (x * 2) : 1)
    }
    results += x
}

msgbox % clipboard := results