-
Notifications
You must be signed in to change notification settings - Fork 0
/
day01_1.adb
32 lines (24 loc) · 825 Bytes
/
day01_1.adb
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
32
with Ada.Text_IO;
procedure Day01_1 is
Input : Ada.Text_IO.File_Type;
Max : Natural := 0;
Sum : Natural;
begin -- Day01_1
Ada.Text_IO.Open (File => Input, Mode => Ada.Text_IO.In_File, Name => "input_01_1");
All_Elves : loop
exit All_Elves when Ada.Text_IO.End_Of_File (Input);
Sum := 0;
All_Food : loop
exit All_Food when Ada.Text_IO.End_Of_File (Input);
One_Food : declare
Line : constant String := Ada.Text_IO.Get_Line (Input);
begin -- One_Food
exit All_Food when Line = "";
Sum := Sum + Integer'Value (Line);
end One_Food;
end loop All_Food;
Max := Integer'Max (Max, Sum);
end loop All_Elves;
Ada.Text_IO.Close (File => Input);
Ada.Text_IO.Put_Line (Item => Max'Image);
end Day01_1;