diff --git a/p7.dyalog b/p7.dyalog index 79050ed..cdc76cb 100644 --- a/p7.dyalog +++ b/p7.dyalog @@ -1,3 +1,4 @@ ⎕IO←0 p←5 36∘.⌷⊃⎕NGET'p7.txt'1 ⎕A{0=≢⍺:⍬ ⋄ s,(⍺~s)∇⍵/⍨(⊣⌿⍵)≠s←⊃⍺~⊢⌿⍵}p ⍝ part 1 +⍬{0=≢,w←⍵/⍨~(⊣⌿⍵)∊⍺~a←' '@(⍺⍳∪⍺)⊢⍺:0 ⋄ t←(5-≢∪a)↑(∪,w)~a,⊢⌿w ⋄ 1+(a,t/⍨61+⎕A⍳t)∇w}p,⍨2↑⍉⍪⎕A ⍝ part 2