AoC3a 2022

ProcessFile(fileName) {
    FileRead, data, % fileName

    output := 0
    For k, v in StrSplit(data, "`n") {
        list := ""
        len := StrLen(v) // 2
        Loop, % len {
            char := SubStr(v, A_Index, 1)
            if InStr(SubStr(v, len + 1), char, true) {
                if !Instr(list, char)
                    output += priority(char)
                list .= char
            }
        }
    }

    return output
}

priority(char) {
    if (char == Format("{:L}", char)) {    ; case sensitive
        return Ord(char) - 96
    } else
        return Ord(char) - 38
}

MsgBox, % ProcessFile(A_ScriptDir "\aoc3.txt")