Day 9 solution using a doubly linked list.

jayfoad · Dec 17, 2018 · b060f3f · b060f3f
1 parent 4631855
commit b060f3f
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/p9.txt b/p9.txt
@@ -0,0 +1 @@
+470 players; last marble is worth 72170 points
diff --git a/p9list.dyalog b/p9list.dyalog
@@ -0,0 +1,10 @@
+⎕IO←0
+(p w)←⍎¨'\d+'⎕S'&'⊃⊃⎕NGET'p9.txt'1
+
+ins←{q←(p←⍵ 1⌷m)1⌷m ⋄ n←m[(p 1)(q 0)]←≢m ⋄ m⍪←p q ⋄ n}
+del←{f←{⍵ 0⌷m} ⋄ p←f(r,←f(q←f⍣6⊢⍵)) ⋄ m[(p 1)(q 0)]←q p ⋄ m⍪←0 ⋄ q}
+run←{ins⍣(23|⍵)del∘(ins⍣22)⍣(⌊⍵÷23)⊢0}
+hscore←{⌈/+⌿z⍵⍴(⍵×z←⌈⍵÷⍨≢r)↑r+23×1+⍳≢r}
+
+r←⍬ ⋄ m←1 2⍴0 ⋄ (hscore p)⊣run w ⍝ part 1
+r←⍬ ⋄ m←1 2⍴0 ⋄ (hscore p)⊣run w×100 ⍝ part 2