AdventOfCode_Day12.fsx

#r "FSharp.Data.dll"
open FSharp.Data
open System.IO

let rec addNumbers (input : JsonValue) : int =
  match input with
  | JsonValue.Number n -> int n
  | JsonValue.Array a ->
    a |> Seq.map addNumbers |> Seq.sum
  | JsonValue.Record r ->
    r |> Seq.map (fun (x, y) -> addNumbers y) |> Seq.sum
  | _ -> 0
  
let isRedObject (input : (string * JsonValue) []) =
  input
  |> Seq.exists (fun (x, y) -> 
    match y with
    | JsonValue.String s -> s = "red"
    | _ -> false 
  )
  
let rec addNumbersPart2 (input : JsonValue) : int =
  match input with
  | JsonValue.Number n -> int n
  | JsonValue.Array a ->
    a 
    |> Seq.map addNumbersPart2 
    |> Seq.sum
  | JsonValue.Record r ->
    if (isRedObject r) then 0
    else 
      r 
      |> Seq.map (fun (x, y) -> addNumbersPart2 y) 
      |> Seq.sum
  | _ -> 0  

let part1 = addNumbers (JsonValue.Parse (File.ReadAllText(@"./AdventOfCode_Day12_input.txt")))
let part2 = addNumbersPart2 (JsonValue.Parse (File.ReadAllText(@"./AdventOfCode_Day12_input.txt")))