From 947a2f5e602e174f6584dc451f61e9fc7855e54d Mon Sep 17 00:00:00 2001 From: Jay Foad Date: Wed, 19 Dec 2018 09:47:13 +0000 Subject: [PATCH] Comment. --- p19.dyalog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/p19.dyalog b/p19.dyalog index 46723ae..f13d7ac 100644 --- a/p19.dyalog +++ b/p19.dyalog @@ -16,6 +16,6 @@ eqri←{a b c←⍵ ⋄ r[c]←r[a]=b} ⎕FX(⊂'r←f r'),{'r[ip]←¯1+⊃⎕LC⋄',⍵,'⋄→2+r[ip]'}¨1↓p ⊃f 6↑0 ⍝ part 1 -g←{+/⍵{⍵/⍨0=⍵|⍺}1+⍳⍵} +g←{+/⍵{⍵/⍨0=⍵|⍺}1+⍳⍵} ⍝ sum of divisors ⎕FX(⊂'→0')(@2)⎕NR'f' g 3⊃f 6↑1 ⍝ part 2