31 lines
713 B
Forth
31 lines
713 B
Forth
namespace AdventOfCode2023
|
|
|
|
open System
|
|
open System.Globalization
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Day8 =
|
|
|
|
let parse (s : string) : ResizeArray<int> =
|
|
use mutable lines = StringSplitEnumerator.make '\n' s
|
|
let result = ResizeArray ()
|
|
|
|
while lines.MoveNext () do
|
|
if not lines.Current.IsEmpty then
|
|
use mutable line = StringSplitEnumerator.make' ' ' lines.Current
|
|
line.MoveNext () |> ignore
|
|
result.Add (3)
|
|
|
|
result
|
|
|
|
let part1 (s : string) =
|
|
let arr = parse s
|
|
let mutable answer = 0
|
|
answer
|
|
|
|
let part2 (s : string) =
|
|
let arr = parse s
|
|
let mutable answer = 0
|
|
|
|
answer
|