solution for day 10

2 files changed, 36 insertions, 0 deletions

diff --git a/Program.fs b/Program.fs
index 4d78505..fb79423 100644
--- a/Program.fs
+++ b/Program.fs
@@ -26,5 +26,7 @@ match (day, part) with
 | (8, 2) -> printf $"{Day8.part2 ()}\n"
 | (9, 1) -> printf $"{Day9.part1 ()}\n"
 | (9, 2) -> printf $"{Day9.part2 ()}\n"
+| (10, 1) -> printf $"{Day10.part1()}\n"
+| (10, 2) -> printf $"{Day10.part2()}\n"
 | (x, y) when (1 <= x && x <= 25) && (y = 1 || y = 2)  -> raise (NotImplemented("not implemented yet"))
 | _ -> raise (NotImplemented("invalid values"))
\ No newline at end of file
diff --git a/solutions/day10.fs b/solutions/day10.fs
new file mode 100644
index 0000000..799850d
--- /dev/null
+++ b/solutions/day10.fs
@@ -0,0 +1,34 @@
+namespace Solutions
+
+module Day10 =
+    open System.IO
+    open System.Text.RegularExpressions
+
+    let (|InstRegex|_|) pattern line =
+        let matched = Regex.Match(line, pattern)
+        if matched.Success then
+            matched.Groups |> Seq.tail |> Seq.map (fun x -> x.Value) |> List.ofSeq |> Some
+        else None
+
+    let parseInst line =
+        match line with
+        | InstRegex "noop" [] -> [0]
+        | InstRegex "addx (-?\d+)" x -> [0; (int x[0])]
+        | _ -> failwith "invalid input"
+
+    let changes = File.ReadLines("inputs/day10.txt") |> Seq.map parseInst |> List.concat
+
+    let executeInsts changes =
+        List.scan (+) 1 changes
+
+    let getStateSum cycles (states: int list) =
+        cycles |> List.map (fun x -> x * states[x-1]) |> List.sum
+
+    let part1 () = executeInsts changes |> getStateSum [20; 60; 100; 140; 180; 220]
+
+    let part2 () = executeInsts changes 
+                    |> List.mapi (fun pixel signal -> abs (signal - (pixel % 40)) <= 1) 
+                    |> List.map (fun x -> if x then "#" else " ")
+                    |> List.chunkBySize 40
+                    |> List.map (String.concat "")
+                    |> List.iter (printf "%s\n")
\ No newline at end of file