apl

APL Hacking: Project Euler Daily (#1)

Aaron W. Hsu

Feb 26, 2011 • 1 min read

This is the first of a series of posts as I go through Project Euler in APL to stretch my knowledge of APL. I hope to post one problem a day to this blog.

Problem #1:

∇R←PEONE;X;⎕IO
 ⎕IO←1
⍝ Find the sum of all the multiples of 3 or 5 below 1000.

X←⍳999

R←+/((0=3∣X)∨0=5∣X)/X

∇

Sign up for more like this.