Day 19

Author: razetime

.gitignore

@@ -1,2 +1,2 @@
-cookies.txt
+cookies.txt
 *.bak

10.bqn

@@ -1,13 +1,13 @@
-#!/usr/bin/env cbqn
-
-inp ← •FLines "10.txt"
-
-strs ← (""{
-  0==𝕨 ? 𝕨;
-  ⊑"{(<["∊˜⥊𝕩 ? 𝕨∾𝕩;
-  ("{(<["∊¯1↑𝕨)≡"})>]"∊⥊𝕩 ? ¯1↓𝕨;
-  𝕩
-}˜´⌽)¨inp
-•Show +´3‿57‿1197‿25137⊏˜")]}>"⊐(1=≠¨)⊸/strs
-
+#!/usr/bin/env cbqn
+
+inp ← •FLines "10.txt"
+
+strs ← (""{
+  0==𝕨 ? 𝕨;
+  ⊑"{(<["∊˜⥊𝕩 ? 𝕨∾𝕩;
+  ("{(<["∊¯1↑𝕨)≡"})>]"∊⥊𝕩 ? ¯1↓𝕨;
+  𝕩
+}˜´⌽)¨inp
+•Show +´3‿57‿1197‿25137⊏˜")]}>"⊐(1=≠¨)⊸/strs
+
 •Show {𝕩⊑˜⌊2÷˜≠𝕩}∧{{𝕨+5×𝕩}´1+"([{<"⊐𝕩}¨(1≠≠¨)⊸/strs

10t.txt

@@ -1,10 +1,10 @@
-[({(<(())[]>[[{[]{<()<>>
-[(()[<>])]({[<{<<[]>>(
-{([(<{}[<>[]}>{[]{[(<()>
-(((({<>}<{<{<>}{[]{[]{}
-[[<[([]))<([[{}[[()]]]
-[{[{({}]{}}([{[{{{}}([]
-{<[[]]>}<{[{[{[]{()[[[]
-[<(<(<(<{}))><([]([]()
-<{([([[(<>()){}]>(<<{{
+[({(<(())[]>[[{[]{<()<>>
+[(()[<>])]({[<{<<[]>>(
+{([(<{}[<>[]}>{[]{[(<()>
+(((({<>}<{<{<>}{[]{[]{}
+[[<[([]))<([[{}[[()]]]
+[{[{({}]{}}([{[{{{}}([]
+{<[[]]>}<{[{[{[]{()[[[]
+[<(<(<(<{}))><([]([]()
+<{([([[(<>()){}]>(<<{{
 <{([{{}}[<[[[<>{}]]]>[]]

11.bqn

@@ -1,12 +1,12 @@
-#!/usr/bin/env cbqn
-
-⟨Pad⟩ ← •Import "lib.bqn"
-
-inp ← >'0'-˜•FLines "11.txt"
-
-Step ← {𝕊⍟(∨´⥊𝕩>9) {x←1‿1⊑𝕩, (0≠x)×(10>x)×x++´9<(4⊸↑∾¯4⊸↑)⥊𝕩}⎉2 3‿3↕9 Pad 𝕩}
-# Part 1:
-•Show +´0=∾⥊¨(Step 1⊸+)⍟(1+↕100) inp
-
-# Part 2:
+#!/usr/bin/env cbqn
+
+⟨Pad⟩ ← •Import "lib.bqn"
+
+inp ← >'0'-˜•FLines "11.txt"
+
+Step ← {𝕊⍟(∨´⥊𝕩>9) {x←1‿1⊑𝕩, (0≠x)×(10>x)×x++´9<(4⊸↑∾¯4⊸↑)⥊𝕩}⎉2 3‿3↕9 Pad 𝕩}
+# Part 1:
+•Show +´0=∾⥊¨(Step 1⊸+)⍟(1+↕100) inp
+
+# Part 2:
 •Show 0{(∧´0=⥊𝕩)◶⟨(𝕨+1)⊸𝕊 Step, 𝕨⟩ 1+𝕩} inp

11t.txt

@@ -1,10 +1,10 @@
-5483143223
-2745854711
-5264556173
-6141336146
-6357385478
-4167524645
-2176841721
-6882881134
-4846848554
+5483143223
+2745854711
+5264556173
+6141336146
+6357385478
+4167524645
+2176841721
+6882881134
+4846848554
 5283751526

12.bqn

@@ -1,29 +1,29 @@
-#!/usr/bin/env cbqn
-
-⟨Split⟩ ← •Import "lib.bqn"
-
-inp ← '-'Split¨•FLines "12.txt"
-
-# Part 1:
-nodes ← ⍷∾inp
-conns ←{(nodes⊐⊑¨𝕩)⊔¯1⊑¨𝕩}inp∾⌽¨inp
-
-•Show ⟨⟩{
-  𝕨 𝕊 "end": 1;
-  next ← (⊑nodes⊐⋈𝕩)⊑conns
-  +´(𝕨∾('a'≤⊑𝕩)⥊⋈𝕩)⊸𝕊¨ next(¬∘∊/⊣)𝕨
-}"start"
-
-# Part 2:
-•Show ⟨"start"⟩ {
-  𝕨 𝕊 "end": 1;
-  w Find x:
-  next ← (⊑nodes⊐⋈𝕩)⊑conns
-  sum ← +´0=∊w(¬∘∊/⊣)⟨"start"⟩ 
-  { 
-    (x≡"start")∧w≢⟨"start"⟩ ? 0;
-    sum > 1 ? 0;
-    1=sum ? +´{(w∾('a'≤⊑x)⥊⋈x) Find 𝕩}¨next(¬∘∊/⊣)w;
-    0=sum ? +´{(w∾('a'≤⊑x)⥊⋈x) Find 𝕩}¨next
-  }
+#!/usr/bin/env cbqn
+
+⟨Split⟩ ← •Import "lib.bqn"
+
+inp ← '-'Split¨•FLines "12.txt"
+
+# Part 1:
+nodes ← ⍷∾inp
+conns ←{(nodes⊐⊑¨𝕩)⊔¯1⊑¨𝕩}inp∾⌽¨inp
+
+•Show ⟨⟩{
+  𝕨 𝕊 "end": 1;
+  next ← (⊑nodes⊐⋈𝕩)⊑conns
+  +´(𝕨∾('a'≤⊑𝕩)⥊⋈𝕩)⊸𝕊¨ next(¬∘∊/⊣)𝕨
+}"start"
+
+# Part 2:
+•Show ⟨"start"⟩ {
+  𝕨 𝕊 "end": 1;
+  w Find x:
+  next ← (⊑nodes⊐⋈𝕩)⊑conns
+  sum ← +´0=∊w(¬∘∊/⊣)⟨"start"⟩ 
+  { 
+    (x≡"start")∧w≢⟨"start"⟩ ? 0;
+    sum > 1 ? 0;
+    1=sum ? +´{(w∾('a'≤⊑x)⥊⋈x) Find 𝕩}¨next(¬∘∊/⊣)w;
+    0=sum ? +´{(w∾('a'≤⊑x)⥊⋈x) Find 𝕩}¨next
+  }
 }"start"

12t.txt

@@ -1,7 +1,7 @@
-start-A
-start-b
-A-c
-A-b
-b-d
-A-end
+start-A
+start-b
+A-c
+A-b
+b-d
+A-end
 b-end

13.bqn

@@ -1,15 +1,15 @@
-#!/usr/bin/env cbqn
-
-⟨Split⟩ ← •Import "lib.bqn"
-
-pts‿folds ← "" <⊸Split •FLines "13.txt"
-pts ↩ {⌽•BQN¨','Split𝕩}¨pts
-folds ↩ {𝕊 ax‿pos: ⟨(ax≡"y")⊑⍉‿⊢, •BQN pos⟩}¨{'='Split ¯1⊑' 'Split𝕩}¨folds
-grid ← ∊⟜pts˘ ↕1+⌈´pts
-
-# Part 1:
-Fold ← {Ax‿pos 𝕊 𝕩: Ax pos ↑{m←𝕨⌈○≠1↓𝕩, 𝕨∨○{𝕩↑˜-+⟜m⊸-≠𝕩}⌽1↓𝕩}´(+`pos=↕≠Ax 𝕩)⊔Ax 𝕩}
-•Show +´⥊(⊑folds) Fold grid
-
-# Part 2:
+#!/usr/bin/env cbqn
+
+⟨Split⟩ ← •Import "lib.bqn"
+
+pts‿folds ← "" <⊸Split •FLines "13.txt"
+pts ↩ {⌽•BQN¨','Split𝕩}¨pts
+folds ↩ {𝕊 ax‿pos: ⟨(ax≡"y")⊑⍉‿⊢, •BQN pos⟩}¨{'='Split ¯1⊑' 'Split𝕩}¨folds
+grid ← ∊⟜pts˘ ↕1+⌈´pts
+
+# Part 1:
+Fold ← {Ax‿pos 𝕊 𝕩: Ax pos ↑{m←𝕨⌈○≠1↓𝕩, 𝕨∨○{𝕩↑˜-+⟜m⊸-≠𝕩}⌽1↓𝕩}´(+`pos=↕≠Ax 𝕩)⊔Ax 𝕩}
+•Show +´⥊(⊑folds) Fold grid
+
+# Part 2:
 •Show " 𝕊"⊏˜grid Fold´⌽folds

13t.txt

@@ -1,21 +1,21 @@
-6,10
-0,14
-9,10
-0,3
-10,4
-4,11
-6,0
-6,12
-4,1
-0,13
-10,12
-3,4
-3,0
-8,4
-1,10
-2,14
-8,10
-9,0
-
-fold along y=7
+6,10
+0,14
+9,10
+0,3
+10,4
+4,11
+6,0
+6,12
+4,1
+0,13
+10,12
+3,4
+3,0
+8,4
+1,10
+2,14
+8,10
+9,0
+
+fold along y=7
 fold along x=5

14.bqn

@@ -1,24 +1,24 @@
-#!/usr/bin/env cbqn
-
-⟨Split⟩ ← •Import "lib.bqn"
-
-⟨pat⟩‿strs ← "" <⊸Split •FLines "14.txt"
-elems‿trans ← <˘⍉>{0‿2⊏' 'Split𝕩}¨ strs
-
-# Part 1:
-•Show (⌈´-⌊´)/⁼∘⊐∧{∾𝕩∾¨⟨""⟩∾˜trans⊏˜elems⊐<˘2↕𝕩}⍟10 pat
-
-# Part 2(works for part 1 as well):
-npair ← trans{𝕨 𝕊 a‿b: elems⊐⟨a∾𝕨,𝕨∾b⟩}¨elems # indices of resultant pairs
-chars ← ⍷elems∾○∾trans # all unique chars
-occs ← +˝pat=⌜chars # occurrence count of each char
-letinds ← chars⊐∾trans # indices of translated letters
-
-•Show (⌈´-⌊´)⊑{
-  𝕊 n‿x:
-  new ← /⋈≠x
-  fil ← ×⊸/x
-  (2/fil){new 𝕨⊸+⌾(𝕩⊸⊑)↩}¨∾npair/˜×x
-  fil{n 𝕨⊸+⌾(𝕩⊸⊑)↩}¨letinds/˜×x
-  n‿new
+#!/usr/bin/env cbqn
+
+⟨Split⟩ ← •Import "lib.bqn"
+
+⟨pat⟩‿strs ← "" <⊸Split •FLines "14.txt"
+elems‿trans ← <˘⍉>{0‿2⊏' 'Split𝕩}¨ strs
+
+# Part 1:
+•Show (⌈´-⌊´)/⁼∘⊐∧{∾𝕩∾¨⟨""⟩∾˜trans⊏˜elems⊐<˘2↕𝕩}⍟10 pat
+
+# Part 2(works for part 1 as well):
+npair ← trans{𝕨 𝕊 a‿b: elems⊐⟨a∾𝕨,𝕨∾b⟩}¨elems # indices of resultant pairs
+chars ← ⍷elems∾○∾trans # all unique chars
+occs ← +˝pat=⌜chars # occurrence count of each char
+letinds ← chars⊐∾trans # indices of translated letters
+
+•Show (⌈´-⌊´)⊑{
+  𝕊 n‿x:
+  new ← /⋈≠x
+  fil ← ×⊸/x
+  (2/fil){new 𝕨⊸+⌾(𝕩⊸⊑)↩}¨∾npair/˜×x
+  fil{n 𝕨⊸+⌾(𝕩⊸⊑)↩}¨letinds/˜×x
+  n‿new
 }⍟40 ⟨occs, +´˘elems≡⌜<˘2↕pat⟩