diff --git a/p10.dyalog b/p10.dyalog index 68cf35b..bcc4bfc 100644 --- a/p10.dyalog +++ b/p10.dyalog @@ -1,7 +1,7 @@ p←↑⍎¨¨'-?\d+'⎕S'&'¨⊃⎕NGET'p10.txt'1 -q←0 2↓p ⋄ p←0 ¯2↓p +v←0 2↓p ⋄ p←0 ¯2↓p mean←+⌿÷≢ -n←⌊0.5+mean,-(p-⍤1 mean p)÷(q-⍤1 mean q) -c←(⊢-⍤1⌊⌿)p+n×q +n←⌊0.5+mean,-(p-⍤1 mean p)÷(v-⍤1 mean v) +c←(⊢-⍤1⌊⌿)p+n×v ⍉'#'@(↓⎕IO+c)⊢(1+⌈⌿c)⍴'' ⍝ part 1 n ⍝ part 2