Sum multiples of 3 and 5: Difference between revisions
Content added Content deleted
(→{{header|BASIC}}: from history I see that perhaps a count was intended, not a sum) |
Walterpachl (talk | contribs) (REXX added -- another result :-)) |
||
Line 26: | Line 26: | ||
{{out}} |
{{out}} |
||
<pre>233168</pre> |
<pre>233168</pre> |
||
=={{header|REXX}}== |
|||
<lang rexx>/* REXX *************************************************************** |
|||
* 14.05.2013 Walter Pachl |
|||
**********************************************************************/ |
|||
Say mul35() |
|||
exit |
|||
mul35: |
|||
s=0 |
|||
Do i=1 To 1000 |
|||
If i//3=0 | i//5=0 Then |
|||
s=s+i |
|||
End |
|||
Return s</lang> |
|||
Output: |
|||
<pre>234168</pre> |
Revision as of 16:06, 14 May 2013
Sum multiples of 3 and 5 is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
The objective is to find the sum of multiplies of 3 or 5 below n within a function. Test it with n = 1000.
BASIC
<lang basic>Declare function mulsum35(n as integer) as integer Function mulsum35(n as integer) as integer
Dim s as integer For i as integer = 1 to n If (i mod 3 = 0) or (i mod 5 = 0) then s += 1 End if Next i Return s
End Function Print mulsum35(1000) Sleep End</lang>
- Output:
467
Perl 6
<lang perl6>sub sum35($n) { [+] grep * %% (3|5), ^$n; }
say sum35 1000;</lang>
- Output:
233168
REXX
<lang rexx>/* REXX ***************************************************************
- 14.05.2013 Walter Pachl
- /
Say mul35() exit mul35: s=0 Do i=1 To 1000
If i//3=0 | i//5=0 Then s=s+i End
Return s</lang> Output:
234168