~pmikkelsen/euler-apl

abf4601ba9c6baccde98913b4744bbe21eff62c4 — Peter Mikkelsen 6 months ago b8dbada master
Solve euler 40
1 files changed, 8 insertions(+), 0 deletions(-)

A Euler40.aplf
A Euler40.aplf => Euler40.aplf +8 -0
@@ 0,0 1,8 @@
 r←Euler40;heh;offsets
 offsets←+\1+⌊10⍟⍳200000
 heh←{
     n←1⍳⍨⍵≤offsets
     o←(n⊃offsets)-⍵
     ⊃o↓⌽10⊥⍣¯1⊢n
 }
 r←×⌿heh¨10*¯1+⍳7