AOC day 5

projects/aoc/src/year2022/Day5.kiss

@@ -0,0 +1,31 @@
+(let [[manifest commands] (Util.readParagraphLines (input 5))
+        :Map<String,kiss.List<String>> stacks (new Map)]
+    (case manifest
+        ([::...stackLines labelsLine]
+            (let [rows (reverse (collect (range stackLines.length)))
+                    labels (filter (enumerate (labelsLine.split "")) ->idxPair (let [[idx :String c] idxPair] (< 0 .length (c.trim))))]
+                (doFor [idx label] labels
+                    (dictSet stacks label [])
+                    (doFor row rows
+                        (whenLet [crate (.trim (.charAt (nth stackLines row) idx))]
+                            (.push (dictGet stacks label) crate))))
+                // Within this block, stacks contains the parsed model of the manifest,
+                // and commands contains the instructions for moving the crates around
+                (withFunctions
+                    [
+                        (simulateCommands [:Map<String,kiss.List<String>> stacks :Bool part1]
+                            (doFor command commands
+                                (case (command.split " ")
+                                    (["move" count "from" from "to" to]
+                                        (let [count (Std.parseInt count)
+                                                fromList (.copy (dictGet stacks from))
+                                                toList (dictGet stacks to)
+                                                toMove (fromList.splice -count count)]
+                                            (dictSet stacks from fromList)
+                                            (dictSet stacks to (toList.concat (if part1 (reverse toMove) toMove)))))
+                                    (never otherwise)))
+                            (.join (for label (sort (collect (stacks.keys))) (last (dictGet stacks label))) ""))
+                    ]
+                    (assert (= "TWSGQHNHL" (simulateCommands (stacks.copy) true)))
+                    (assert (= "JNRSCDWPP" (simulateCommands (stacks.copy) false))))))
+        (never otherwise)))

projects/aoc/src/year2022/Solutions2022.kiss

@@ -7,24 +7,24 @@
 (day 2 (load "Day2.kiss"))
 (day 3 (load "Day3.kiss"))
 (day 4 (load "Day4.kiss"))
-(dayTodo 5)
-(dayTodo 6)
-(dayTodo 7)
-(dayTodo 8)
-(dayTodo 9)
-(dayTodo 10)
-(dayTodo 11)
-(dayTodo 12)
-(dayTodo 13)
-(dayTodo 14)
-(dayTodo 15)
-(dayTodo 16)
-(dayTodo 17)
-(dayTodo 18)
-(dayTodo 19)
-(dayTodo 20)
-(dayTodo 21)
-(dayTodo 22)
-(dayTodo 23)
-(dayTodo 24)
-(dayTodo 25)
+(day 5 (load "Day5.kiss"))
+(dayTodo 6)//(day 6 (load "Day6.kiss"))
+(dayTodo 7)//(day 7 (load "Day7.kiss"))
+(dayTodo 8)//(day 8 (load "Day8.kiss"))
+(dayTodo 9)//(day 9 (load "Day9.kiss"))
+(dayTodo 10)//(day 10 (load "Day10.kiss"))
+(dayTodo 11)//(day 11 (load "Day11.kiss"))
+(dayTodo 12)//(day 12 (load "Day12.kiss"))
+(dayTodo 13)//(day 13 (load "Day13.kiss"))
+(dayTodo 14)//(day 14 (load "Day14.kiss"))
+(dayTodo 15)//(day 15 (load "Day15.kiss"))
+(dayTodo 16)//(day 16 (load "Day16.kiss"))
+(dayTodo 17)//(day 17 (load "Day17.kiss"))
+(dayTodo 18)//(day 18 (load "Day18.kiss"))
+(dayTodo 19)//(day 19 (load "Day19.kiss"))
+(dayTodo 20)//(day 20 (load "Day20.kiss"))
+(dayTodo 21)//(day 21 (load "Day21.kiss"))
+(dayTodo 22)//(day 22 (load "Day22.kiss"))
+(dayTodo 23)//(day 23 (load "Day23.kiss"))
+(dayTodo 24)//(day 24 (load "Day24.kiss"))
+(dayTodo 25)//(day 25 (load "Day25.kiss"))

projects/aoc/src/year2022/inputs/day5.txt

@@ -0,0 +1,511 @@
+        [J]         [B]     [T]    
+        [M] [L]     [Q] [L] [R]    
+        [G] [Q]     [W] [S] [B] [L]
+[D]     [D] [T]     [M] [G] [V] [P]
+[T]     [N] [N] [N] [D] [J] [G] [N]
+[W] [H] [H] [S] [C] [N] [R] [W] [D]
+[N] [P] [P] [W] [H] [H] [B] [N] [G]
+[L] [C] [W] [C] [P] [T] [M] [Z] [W]
+ 1   2   3   4   5   6   7   8   9 
+
+move 6 from 6 to 5
+move 2 from 5 to 9
+move 8 from 9 to 1
+move 3 from 5 to 4
+move 9 from 1 to 8
+move 2 from 1 to 5
+move 1 from 1 to 8
+move 14 from 8 to 2
+move 1 from 1 to 2
+move 2 from 6 to 8
+move 2 from 5 to 7
+move 6 from 8 to 6
+move 4 from 4 to 2
+move 2 from 4 to 9
+move 5 from 7 to 4
+move 2 from 7 to 5
+move 6 from 2 to 4
+move 2 from 4 to 7
+move 4 from 5 to 8
+move 1 from 5 to 2
+move 3 from 3 to 5
+move 3 from 8 to 3
+move 4 from 3 to 7
+move 2 from 9 to 8
+move 1 from 3 to 7
+move 1 from 6 to 8
+move 5 from 7 to 1
+move 3 from 7 to 2
+move 1 from 6 to 3
+move 2 from 5 to 9
+move 5 from 4 to 2
+move 3 from 5 to 9
+move 5 from 9 to 6
+move 2 from 1 to 3
+move 4 from 4 to 1
+move 2 from 8 to 1
+move 18 from 2 to 5
+move 3 from 4 to 1
+move 1 from 1 to 2
+move 1 from 6 to 8
+move 1 from 7 to 1
+move 10 from 1 to 5
+move 1 from 1 to 5
+move 3 from 8 to 1
+move 2 from 1 to 5
+move 3 from 6 to 5
+move 8 from 2 to 9
+move 2 from 9 to 7
+move 3 from 3 to 8
+move 1 from 4 to 8
+move 3 from 5 to 3
+move 15 from 5 to 8
+move 4 from 6 to 1
+move 2 from 7 to 4
+move 9 from 5 to 7
+move 1 from 6 to 8
+move 5 from 3 to 5
+move 5 from 7 to 5
+move 3 from 1 to 5
+move 2 from 4 to 8
+move 3 from 1 to 6
+move 20 from 5 to 4
+move 1 from 7 to 6
+move 21 from 8 to 2
+move 1 from 3 to 7
+move 2 from 4 to 2
+move 1 from 7 to 1
+move 18 from 2 to 8
+move 3 from 9 to 2
+move 1 from 6 to 4
+move 1 from 1 to 9
+move 8 from 8 to 6
+move 4 from 8 to 2
+move 1 from 2 to 6
+move 7 from 8 to 5
+move 2 from 5 to 3
+move 1 from 9 to 5
+move 5 from 2 to 4
+move 1 from 3 to 7
+move 2 from 5 to 7
+move 4 from 4 to 9
+move 2 from 5 to 9
+move 6 from 2 to 8
+move 3 from 7 to 3
+move 2 from 5 to 4
+move 4 from 8 to 2
+move 2 from 7 to 4
+move 7 from 6 to 4
+move 1 from 8 to 4
+move 3 from 6 to 7
+move 2 from 7 to 2
+move 7 from 9 to 7
+move 1 from 9 to 2
+move 3 from 3 to 6
+move 3 from 7 to 4
+move 2 from 7 to 9
+move 6 from 4 to 1
+move 3 from 7 to 9
+move 1 from 8 to 5
+move 1 from 3 to 6
+move 3 from 9 to 4
+move 2 from 6 to 4
+move 3 from 9 to 1
+move 4 from 2 to 8
+move 1 from 8 to 5
+move 9 from 1 to 2
+move 1 from 6 to 5
+move 1 from 7 to 2
+move 1 from 8 to 1
+move 2 from 8 to 9
+move 1 from 9 to 8
+move 1 from 5 to 7
+move 1 from 7 to 6
+move 1 from 9 to 8
+move 1 from 6 to 3
+move 26 from 4 to 3
+move 1 from 5 to 8
+move 3 from 6 to 3
+move 7 from 4 to 3
+move 1 from 1 to 3
+move 1 from 4 to 8
+move 13 from 3 to 1
+move 1 from 3 to 4
+move 12 from 2 to 5
+move 20 from 3 to 2
+move 1 from 4 to 1
+move 4 from 5 to 7
+move 1 from 7 to 8
+move 9 from 5 to 2
+move 5 from 1 to 5
+move 21 from 2 to 8
+move 5 from 8 to 4
+move 4 from 5 to 2
+move 6 from 1 to 7
+move 1 from 5 to 4
+move 4 from 3 to 1
+move 6 from 1 to 3
+move 1 from 1 to 9
+move 6 from 8 to 7
+move 4 from 8 to 2
+move 4 from 2 to 7
+move 5 from 4 to 1
+move 8 from 8 to 4
+move 1 from 9 to 6
+move 18 from 7 to 6
+move 15 from 6 to 5
+move 2 from 6 to 8
+move 2 from 6 to 3
+move 8 from 3 to 7
+move 15 from 5 to 7
+move 3 from 4 to 9
+move 12 from 2 to 3
+move 3 from 9 to 4
+move 6 from 7 to 9
+move 9 from 4 to 5
+move 10 from 3 to 5
+move 9 from 5 to 2
+move 14 from 7 to 8
+move 14 from 8 to 5
+move 4 from 2 to 4
+move 1 from 4 to 6
+move 2 from 8 to 4
+move 3 from 8 to 9
+move 18 from 5 to 1
+move 1 from 5 to 9
+move 1 from 7 to 4
+move 5 from 5 to 9
+move 3 from 2 to 4
+move 13 from 9 to 2
+move 13 from 2 to 6
+move 1 from 7 to 3
+move 3 from 3 to 1
+move 9 from 6 to 5
+move 1 from 7 to 8
+move 20 from 1 to 8
+move 2 from 2 to 8
+move 5 from 6 to 9
+move 15 from 8 to 7
+move 3 from 5 to 3
+move 5 from 1 to 3
+move 2 from 3 to 4
+move 3 from 9 to 5
+move 4 from 5 to 2
+move 4 from 5 to 7
+move 3 from 4 to 9
+move 10 from 7 to 8
+move 2 from 9 to 4
+move 1 from 5 to 6
+move 8 from 7 to 9
+move 1 from 6 to 7
+move 6 from 3 to 4
+move 12 from 9 to 8
+move 1 from 1 to 5
+move 2 from 7 to 8
+move 1 from 7 to 5
+move 1 from 9 to 5
+move 2 from 2 to 9
+move 11 from 8 to 1
+move 7 from 1 to 5
+move 3 from 1 to 6
+move 5 from 8 to 9
+move 8 from 4 to 3
+move 4 from 4 to 6
+move 5 from 9 to 3
+move 4 from 4 to 5
+move 2 from 6 to 7
+move 1 from 9 to 5
+move 2 from 7 to 4
+move 12 from 5 to 2
+move 8 from 8 to 9
+move 8 from 8 to 6
+move 9 from 6 to 2
+move 4 from 9 to 2
+move 1 from 5 to 1
+move 5 from 2 to 1
+move 2 from 5 to 4
+move 5 from 2 to 5
+move 5 from 5 to 6
+move 3 from 4 to 7
+move 11 from 2 to 7
+move 2 from 2 to 1
+move 4 from 3 to 7
+move 2 from 2 to 4
+move 6 from 1 to 4
+move 1 from 2 to 8
+move 2 from 9 to 5
+move 4 from 4 to 3
+move 5 from 4 to 1
+move 2 from 2 to 1
+move 1 from 8 to 5
+move 14 from 7 to 6
+move 3 from 9 to 2
+move 15 from 6 to 8
+move 4 from 1 to 3
+move 2 from 2 to 3
+move 1 from 1 to 7
+move 2 from 3 to 5
+move 4 from 5 to 4
+move 1 from 3 to 5
+move 5 from 1 to 6
+move 12 from 6 to 7
+move 7 from 8 to 4
+move 12 from 7 to 9
+move 4 from 7 to 9
+move 1 from 2 to 8
+move 12 from 9 to 4
+move 23 from 4 to 3
+move 1 from 6 to 5
+move 3 from 9 to 3
+move 1 from 7 to 9
+move 1 from 9 to 1
+move 1 from 9 to 7
+move 42 from 3 to 1
+move 3 from 5 to 4
+move 5 from 1 to 3
+move 3 from 4 to 7
+move 1 from 1 to 9
+move 4 from 3 to 8
+move 1 from 3 to 7
+move 1 from 9 to 1
+move 2 from 7 to 8
+move 8 from 1 to 6
+move 2 from 7 to 5
+move 9 from 1 to 2
+move 5 from 2 to 3
+move 3 from 2 to 4
+move 20 from 1 to 2
+move 1 from 1 to 5
+move 1 from 6 to 7
+move 3 from 4 to 7
+move 2 from 3 to 6
+move 3 from 6 to 1
+move 1 from 6 to 4
+move 2 from 1 to 6
+move 3 from 5 to 9
+move 1 from 4 to 3
+move 2 from 7 to 4
+move 6 from 8 to 4
+move 1 from 1 to 9
+move 1 from 2 to 9
+move 2 from 8 to 7
+move 3 from 6 to 2
+move 5 from 7 to 5
+move 4 from 2 to 5
+move 4 from 4 to 6
+move 3 from 9 to 6
+move 4 from 3 to 1
+move 1 from 9 to 2
+move 7 from 8 to 9
+move 4 from 2 to 4
+move 2 from 1 to 7
+move 3 from 4 to 5
+move 4 from 2 to 4
+move 1 from 7 to 4
+move 4 from 2 to 9
+move 7 from 4 to 3
+move 1 from 7 to 3
+move 6 from 2 to 3
+move 2 from 1 to 5
+move 10 from 3 to 6
+move 2 from 6 to 1
+move 2 from 2 to 7
+move 2 from 3 to 1
+move 1 from 7 to 8
+move 11 from 5 to 3
+move 2 from 3 to 1
+move 4 from 6 to 1
+move 1 from 4 to 6
+move 8 from 3 to 4
+move 2 from 5 to 6
+move 3 from 3 to 5
+move 1 from 8 to 4
+move 1 from 4 to 9
+move 2 from 6 to 1
+move 1 from 5 to 1
+move 9 from 4 to 3
+move 5 from 6 to 9
+move 5 from 6 to 7
+move 13 from 9 to 3
+move 5 from 1 to 8
+move 4 from 8 to 4
+move 10 from 3 to 2
+move 3 from 6 to 1
+move 2 from 7 to 9
+move 1 from 8 to 3
+move 1 from 7 to 3
+move 1 from 9 to 5
+move 1 from 6 to 3
+move 7 from 2 to 4
+move 3 from 5 to 2
+move 8 from 3 to 5
+move 7 from 4 to 3
+move 5 from 9 to 7
+move 1 from 7 to 1
+move 9 from 1 to 8
+move 9 from 5 to 8
+move 2 from 7 to 8
+move 3 from 8 to 1
+move 10 from 3 to 6
+move 1 from 1 to 6
+move 5 from 1 to 7
+move 3 from 2 to 8
+move 7 from 8 to 6
+move 7 from 8 to 6
+move 1 from 3 to 5
+move 5 from 7 to 9
+move 4 from 8 to 4
+move 3 from 2 to 8
+move 1 from 7 to 8
+move 3 from 3 to 9
+move 3 from 7 to 4
+move 1 from 7 to 2
+move 9 from 9 to 1
+move 5 from 1 to 9
+move 4 from 8 to 6
+move 1 from 2 to 7
+move 1 from 5 to 3
+move 1 from 3 to 7
+move 1 from 1 to 9
+move 1 from 1 to 7
+move 5 from 9 to 6
+move 2 from 7 to 6
+move 10 from 4 to 8
+move 1 from 4 to 2
+move 1 from 4 to 1
+move 1 from 9 to 2
+move 3 from 1 to 2
+move 1 from 7 to 3
+move 1 from 2 to 1
+move 16 from 6 to 3
+move 9 from 6 to 1
+move 6 from 6 to 1
+move 5 from 6 to 1
+move 3 from 8 to 1
+move 11 from 3 to 4
+move 1 from 6 to 2
+move 3 from 8 to 2
+move 4 from 1 to 6
+move 5 from 3 to 2
+move 1 from 2 to 5
+move 1 from 8 to 5
+move 5 from 8 to 3
+move 4 from 6 to 9
+move 2 from 9 to 6
+move 3 from 3 to 9
+move 1 from 5 to 7
+move 5 from 1 to 6
+move 3 from 6 to 4
+move 2 from 2 to 9
+move 8 from 4 to 2
+move 9 from 1 to 7
+move 3 from 3 to 5
+move 3 from 5 to 7
+move 12 from 7 to 1
+move 5 from 4 to 6
+move 1 from 4 to 5
+move 7 from 1 to 8
+move 5 from 9 to 3
+move 1 from 7 to 4
+move 10 from 1 to 8
+move 1 from 4 to 8
+move 4 from 6 to 8
+move 1 from 6 to 9
+move 2 from 5 to 1
+move 4 from 3 to 4
+move 1 from 1 to 8
+move 4 from 4 to 7
+move 2 from 1 to 8
+move 4 from 6 to 1
+move 3 from 9 to 5
+move 1 from 6 to 5
+move 1 from 3 to 7
+move 24 from 8 to 6
+move 3 from 6 to 5
+move 4 from 6 to 7
+move 1 from 1 to 7
+move 7 from 7 to 6
+move 7 from 5 to 3
+move 13 from 6 to 8
+move 3 from 1 to 2
+move 7 from 6 to 3
+move 12 from 2 to 4
+move 4 from 6 to 9
+move 6 from 3 to 1
+move 1 from 2 to 4
+move 2 from 8 to 7
+move 2 from 2 to 9
+move 6 from 3 to 4
+move 12 from 8 to 2
+move 18 from 2 to 5
+move 10 from 4 to 3
+move 4 from 7 to 3
+move 5 from 4 to 7
+move 3 from 5 to 2
+move 4 from 7 to 9
+move 1 from 5 to 4
+move 3 from 2 to 1
+move 4 from 3 to 6
+move 7 from 5 to 6
+move 2 from 5 to 7
+move 5 from 1 to 7
+move 9 from 7 to 6
+move 8 from 9 to 8
+move 1 from 1 to 3
+move 1 from 3 to 1
+move 10 from 3 to 9
+move 8 from 8 to 4
+move 1 from 3 to 8
+move 1 from 1 to 3
+move 6 from 9 to 1
+move 5 from 5 to 3
+move 5 from 3 to 6
+move 1 from 8 to 9
+move 19 from 6 to 2
+move 13 from 4 to 1
+move 4 from 1 to 5
+move 6 from 2 to 1
+move 2 from 9 to 4
+move 1 from 3 to 1
+move 9 from 2 to 3
+move 4 from 5 to 1
+move 5 from 9 to 6
+move 4 from 3 to 4
+move 3 from 2 to 7
+move 2 from 4 to 8
+move 6 from 1 to 9
+move 1 from 8 to 6
+move 4 from 1 to 5
+move 3 from 4 to 5
+move 1 from 7 to 2
+move 11 from 1 to 6
+move 1 from 2 to 7
+move 5 from 3 to 7
+move 1 from 3 to 4
+move 1 from 4 to 8
+move 3 from 5 to 6
+move 8 from 1 to 7
+move 1 from 8 to 9
+move 1 from 6 to 9
+move 1 from 8 to 5
+move 11 from 6 to 5
+move 12 from 5 to 2
+move 1 from 5 to 2
+move 8 from 7 to 3
+move 1 from 5 to 6
+move 2 from 5 to 6
+move 3 from 7 to 1
+move 6 from 2 to 6
+move 1 from 3 to 1
+move 1 from 4 to 1
+move 4 from 6 to 2
+move 5 from 1 to 5
+move 10 from 2 to 3
+move 2 from 9 to 4
+move 4 from 5 to 8
+move 2 from 2 to 7
+move 12 from 6 to 7
+move 1 from 8 to 2
+move 10 from 3 to 4
+move 2 from 3 to 5
+move 1 from 3 to 1