From 310e876ca360def963d067af14df755751f11edd Mon Sep 17 00:00:00 2001 From: Jay Foad Date: Mon, 10 Dec 2018 10:04:28 +0000 Subject: [PATCH] Rename q to v for velocity. --- p10.dyalog | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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