Advent of Code 2023 1-1

advent2023-1-1.fs

// https://adventofcode.com/2023/day/1

open System.Text.RegularExpressions

let firstDigitRegex = Regex("[0-9]")
let lastDigitRegex = Regex("[0-9]", RegexOptions.RightToLeft)

let sumOfCalibrationValues =
    Seq.fold (fun acc (line: string) ->
        let first = firstDigitRegex.Match(line).Value |> int
        let last = lastDigitRegex.Match(line).Value |> int
        acc + 10*first + last
    ) 0

["1abc2"
 "pqr3stu8vwx"
 "a1b2c3d4e5f"
 "treb7uchet" ]
|> sumOfCalibrationValues
|> System.Console.WriteLine // 142