aoa_23_20230119.0.0_38d1c7e5/src/aoa_09_2.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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
with Ada.Containers.Vectors;
with Ada.Text_IO;
with PragmARC.Conversions.Unbounded_Strings;
with PragmARC.Line_Fields;

procedure AOA_09_2 is
   use PragmARC.Conversions.Unbounded_Strings;

   package Sequences is new Ada.Containers.Vectors (Index_Type => Positive, Element_Type => Integer);

   Num_Levels : constant := 19;

   type Difference_Set is array (1 .. Num_Levels + 1) of Sequences.Vector; -- 1 => input, 2 .. Num_Levels + 1 => differences

   Input : Ada.Text_IO.File_Type;
   Diff  : Difference_Set;
   Level : Positive;
   Sum   : Natural := 0;
begin -- AOA_09_2
   Ada.Text_IO.Open (File => Input, Mode => Ada.Text_IO.In_File, Name => "input_09");

   All_Lines : loop
      exit All_Lines when Ada.Text_IO.End_Of_File (Input);

      One_Line : declare
         Line  : constant String                               := Ada.Text_IO.Get_Line (Input);
         Field : constant PragmARC.Line_Fields.Line_Field_Info := PragmARC.Line_Fields.Parsed (Line);
      begin -- One_Line
         Diff := (others => Sequences.Empty_Vector);

         Convert : for I in 1 .. Field.Field.Last_Index loop
            Diff (1).Append (New_Item => Integer'Value (+Field.Field.Element (I) ) );
         end loop Convert;

         All_Levels : for L in 2 .. Diff'Last loop
            All_Diffs : for I in 1 .. Diff (L - 1).Last_Index - 1 loop
               Diff (L).Append (New_Item => Diff (L - 1).Element (I + 1) - Diff (L - 1).Element (I) );
            end loop All_Diffs;

            if (for all I in 2 .. Diff (L).Last_Index => Diff (L).Element (1) = Diff (L).Element (I) ) then
               Level := L;

               exit All_Levels;
            end if;

            if L = Diff'Last then -- Num_Levels levels of differences not enough
               raise Program_Error with "need more than" & Num_Levels'Image & " levels for " & Line;
            end if;
         end loop All_Levels;

         Extend : for L in reverse 1 .. Level - 1 loop
            Diff (L).Append
               (New_Item => Diff (L).Element (1) - Diff (L + 1).Element (Diff (L + 1).Last_Index));
         end loop Extend;

         Sum := Sum + Diff (1).Element (Diff (1).Last_Index);
      end One_Line;
   end loop All_Lines;

   Ada.Text_IO.Close (File => Input);
   Ada.Text_IO.Put_Line (Item => Sum'Image);
end AOA_09_2;