APL Hacking: Project Euler Daily (#1)
Saturday, February 26, 2011 11:35:21 PM
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 ∇
Thoughts on Eternity, God, and lesser endeavors
Saturday, February 26, 2011 11:35:21 PM
∇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 ∇
| S | M | T | W | T | F | S |
|---|---|---|---|---|---|---|
|
| ||||||
| 1 | 2 | 3 | 4 | |||
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | 30 | 31 | |
Home Page and Index
I do exist here, barely.
Promote manual transmission cars!
My Wife's Blog
One of the writings on Government, ever.