Anonymous user
Sum multiples of 3 and 5: Difference between revisions
Adds Ocaml iterative solution
m (→{{header|D}}) |
(Adds Ocaml iterative solution) |
||
Line 1,549:
Output for n = 1000: ''233168''.
=={{header|OCaml}}==
<lang ocaml>let sum_mults n =
let sum = ref 0 in
for i = 3 to (n - 1) do
if (i mod 3) = 0 || (i mod 5) = 0 then
sum := !sum + i;
done;
!sum;;
print_endline (string_of_int (sum_mults 1000));;
</lang>
{{out}}
<pre>233168</pre>
=={{header|PARI/GP}}==
| |||