List := StrSplit(FileOpen("day14_input.txt","R").Read(),"`r`n")

memory := []
for k, v in List {
    if InStr(v,"mask")
        mask := StrSplit(SubStr(v,8))
    else {
        s := ""
        RegexMatch(v,"O)mem\[(\d+)\] = (\d+)$",o)
        for location, bit in StrSplit(Format("{:036}",Bin(o[2]))) {
            t := mask[location]
            s .= (bit != t && t != "X")?(t):(bit)
        }
        memory[o[1]] := s
    }
}

sum := 0
for k, v in memory
    sum += Dec(v)

msgbox % clipboard := sum

Bin(x) {
    while x
        r:=1&x r,x>>=1
    return r
}

Dec(x) {
    b:=StrLen(x),r:=0
    loop,parse,x
        r|=A_LoopField<<--b
    return r
}