day 14 part 2 done

1 year ago · 71f7171443
parent 8d32433194
commit 71f7171443
1 changed files with 20 additions and 0 deletions
--- a/day14.ua
+++ b/day14.ua
@ -26,7 +26,27 @@ PartIOriginal ← (

 SlideLeft ← ≡(⍜⊜□(≡(□⊐/⊂⊕□∩°□)=@..)≠@#.)
 PartI ← /+♭×⊃(¤-⇡.⧻⊢|=@O)SlideLeft⍉
+Cycle ← (
+  ⍜⍉SlideLeft    # Up
+  SlideLeft      # Left
+  ⍜(⍉⇌)SlideLeft # Down
+  ⍜≡⇌SlideLeft   # Right
+)
+
+# this code is fucking awful
+PartII ← (
+  ¤Cycle
+  ⍢(⊂Cycle⊢.)(¬∊⊃(⊢|↘1))
+  ≡≍⊃↙↘1.
+  ⊙(+1)∩(⊗1)⇌.
+  ⍜(-|◿:)⊙1000000000
+  ?
+  ⊡-1⊙⇌
+  /+♭×⊃(-⇡.⧻⊢|=@O)
+)

 PartI Parse TestInput
+PartII Parse TestInput

 PartI Parse &fras "day14.in"
+PartII Parse &fras "day14.in"