Day 7 simpler

jayfoad · Dec 7, 2022 · 9bad575 · 9bad575
1 parent 4cecfee
commit 9bad575
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/p7.dyalog b/p7.dyalog
@@ -1,5 +1,5 @@
 ⎕IO←0 ⋄ q←⊃⎕NGET'p7.txt'1
-up←{p s←⍺ ⋄ (1↓p)((s⊃⍨⊃p)+@(1⊃p)⊢s)f 1↓⍵} ⋄ cd←{(0,¨1 0+⍺)f 1↓⍵} ⋄ file←{p s←⍺ ⋄ p((⍎t↑⍨' '⍳⍨t←⊃⍵)+@0⊢s)f 1↓⍵}
-f←{p s←⍺ ⋄ 1 0≡≢¨p⍵:s ⋄ (0=≢⍵)∨'$ cd ..'≡⊃⍵:⍺ up ⍵ ⋄ '$ cd'≡4↑⊃⍵:⍺ cd ⍵ ⋄ ⎕D∊⍨⊃⊃⍵:⍺ file ⍵ ⋄ ⍺∇1↓⍵} ⋄ s←⍬⍬ f q
+up←{p s←⍵ ⋄ (1↓p)((s⊃⍨⊃p)+@(1⊃p)⊢s)}
+s←1⊃up⍣(≢1↓⊃a)⊢a←⊃{'.'=⊃⌽⍺:up ⍵ ⋄ '$ c'≡3↑⍺:0,¨1 0+⍵ ⋄ (⍎'0',⍺/⍨∧\⍺∊⎕D)+@(⊂1 0)⊢⍵}/(⌽q),⊂⍬⍬
 +/s/⍨s≤1E5 ⍝ part 1
 ⌊/s/⍨s≥⊃⌽s-4E7 ⍝ part 2