einarwh

// Advent of Code 2024. Day 14: Restroom Redoubt.
// dotnet fsi aoc14.fsx

open System
open System.IO
open System.Diagnostics

type Pos = (int * int)

type Robot = { p : Pos; v : Pos }

einarwh

// Advent of Code 2024. Day 13: Claw Contraption.
// dotnet fsi aoc13.fsx

open System
open System.IO

type Machine = 
    { ax : int64 
      bx : int64 
      ay : int64 

einarwh

// Advent of Code 2024. Day 12: Garden Groups.
// dotnet fsi aoc12.fsx

open System
open System.IO

module Garden = 
    let inBounds (a : 'a[,]) (x, y) = 
        let first = y >= 0 && y < a.GetLength(0)
        let second = x >= 0 && x < a.GetLength(1)

einarwh

// Advent of Code 2024. Day 11: Plutonian Pebbles.
// dotnet fsi aoc11.fsx

open System
open System.IO

let applyRules stone = 
    if stone = 0L then [1L]
    else 
        let s = stone.ToString()

einarwh

// Advent of Code 2024. Day 10: Hoof It.
// dotnet fsi aoc10.fsx

open System
open System.IO

module Array2D = 
    let inBounds (a : 'a[,]) (x, y) = 
        let first = y >= 0 && y < a.GetLength(0)
        let second = x >= 0 && x < a.GetLength(1)

einarwh

// Advent of Code 2024. Day 09: Disk Fragmenter.
// dotnet fsi aoc09.fsx

open System
open System.IO
open System.Collections.Generic

type DiskEntry = 
    | File of (int * int) 
    | Free of int 

einarwh

// Advent of Code 2024. Day 08: Resonant Collinearity.
// dotnet fsi aoc08.fsx

open System
open System.IO

module Array2D = 
    let inBounds (a : 'a[,]) (x, y) = 
        let first = y >= 0 && y < a.GetLength(0)
        let second = x >= 0 && x < a.GetLength(1)

einarwh

// Advent of Code 2024. Day 07: Bridge Repair.
// dotnet fsi aoc07.fsx

open System
open System.IO

let split (splitter : string) (input : string) = input.Split(splitter)

let parseLine s = 
    let parts = s |> split ": "

einarwh

module Array2D = 
    let tryGet (a : 'a[,]) (x, y) = 
        let first = y >= 0 && y < a.GetLength(0)
        let second = x >= 0 && x < a.GetLength(1)
        if first && second then Some (Array2D.get a y x) else None
    let positions (a : 'a[,]) = 
        let rowCount = a.GetLength(0)
        let colCount = a.GetLength(1)
        [for x in [0..colCount-1] do for y in [0..rowCount-1] -> (x, y)]
    let fromList (lst : 'a list list) = 

einarwh

// Advent of Code 2024. Day 06: Guard Gallivant.
// dotnet fsi aoc06.fsx

open System
open System.IO

module Array2D = 
    let tryGet (a : 'a[,]) (x, y) = 
        let first = y >= 0 && y < a.GetLength(0)
        let second = x >= 0 && x < a.GetLength(1)