object

open System
open System.IO

let input = 
    File.ReadAllLines("input06.txt") 
    |> Seq.toList
    |> Seq.toList

let setOperation =
    // Set.union // for part 1

object

open System
open System.IO

type BagColor = string * string

type BagQuantity = {
    Color : BagColor
    Count : int
}

object

open System
open System.IO

type Instruction =
    | Nop of int
    | Acc of int
    | Jmp of int

let parseLine (line : string) =
    let words = line.Split(' ')

object

    let input =
        File.ReadAllLines("Data/input09.txt")
        |> Seq.toArray 
        |> Array.map Int64.Parse

    // Reused from Day 1
    let rec findNwithSum sum n numbers acc_sum acc_numbers =
        if sum < 0L || n < 0 then
            None
        else if sum = 0L && n = 0 then

object

    // Part 1

    File.ReadAllLines("Data/input10.txt")
    |> Seq.toList 
    |> List.map Int64.Parse
    |> List.sort
    |> List.fold (fun (last,diff1,diff3) n -> 
        if n - last = 1L then (n, diff1+1, diff3) else (n, diff1, diff3+1)) (0L,0,1)

    // Part 2

object

    type SeatStatus = 
        | Floor
        | Empty
        | Occupied

    let parseStatus ch = match ch with | '.' -> Floor | 'L' -> Empty | _ -> Occupied

    let input =
        File.ReadAllLines("Data/input11.txt") 

object

module TwelveOne =

    let parseLine (line : string) =
        (line.[0],Int32.Parse line.[1..])

    let turn cmd dist dir =
        match cmd with
        | 'R' -> 
            match dir with 

object

module ThirteenOne =

    open System
    open System.IO

    type Schedule = {
        Timestamp : int
        Buses : int array
    }

object

module FourteenOne =

    open System
    open System.IO
    open System.Text.RegularExpressions

    type Memory = Map<int, uint64>

    type Instruction = 
        | Mask of uint64 * uint64

object

module Sixteeen =

    open System
    open System.IO
    open System.Text.RegularExpressions

    type Range = {
        Min : int
        Max : int
    }