Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

60 lines (54 sloc) 1.905 kb
--
-- Project Euler problem #1
--
-- If we list all the natural numbers below 10 that are multiples of 3 or 5,
-- we get 3, 5, 6 and 9. The sum of these multiples is 23.
--
-- Find the sum of all the multiples of 3 or 5 below 1000.
with Ada.Containers.Vectors,
Ada.Command_Line,
Ada.Text_IO;
use Ada.Containers,
Ada.Text_IO;
procedure One is
package CL renames Ada.Command_Line;
package Bucket is new Ada.Containers.Vectors (Index_Type => Natural,
Element_Type => Natural);
--
-- Return a `Vector` with all the multiples of 3 *or* 5 from 1 until
-- `Upper` (non-inclusive)
function Multiples (Upper : in Natural) return Bucket.Vector is
Numbers : Bucket.Vector;
begin
for Index in 1 .. (Upper - 1) loop
if (Index mod 3) = 0 then
Bucket.Append (Numbers, Index);
elsif (Index mod 5) = 0 then
Bucket.Append (Numbers, Index);
end if;
end loop;
return Numbers;
end Multiples;
begin
if CL.Argument_Count < 1 then
Put_Line (">>> Insufficient command line parameters!");
New_Line;
Put_Line ("Please execute with: " & CL.Command_Name & " <maxnumber>");
CL.Set_Exit_Status (CL.Failure);
return;
end if;
declare
Upper_Bound : constant Natural := Natural'Value (Ada.Command_Line.Argument (1));
Valid_Numbers : constant Bucket.Vector := Multiples (Upper_Bound);
Result : Natural := 0;
begin
for Index in 0 .. Bucket.Last_Index (Valid_Numbers) loop
declare
Value : constant Natural := Bucket.Element (Valid_Numbers, Integer (Index));
begin
Result := (Result + Value);
end;
end loop;
Put_Line (Natural'Image (Result));
end;
end One;
Jump to Line
Something went wrong with that request. Please try again.