AoC 2022 Day 02

module AoC_2022.Day02

open Util

let lines = System.IO.File.ReadAllLines("../../../Inputs/Day02.txt")

let score (game : string) =
    let [|u; v|] = game.Split " " |> Array.map (int << char)
    ((v - u - 22) mod 3) * 3 + (v - 87)

Array.map score lines |> Array.sum |> System.Console.WriteLine

let b (game : string) =
    let [|u; v|] = game.Split " "
    score $"{u} {char <| (int (char u) + int (char v) - 1) mod 3 + 88}"

Array.map b lines |> Array.sum |> System.Console.WriteLine