folkert/Learning
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add dirty solution for day 2 2

Browse Source
This commit is contained in:
Folkert Kevelam 2025-02-28 22:58:42 +01:00
parent 85314237dd
commit 42f70ecd1b
1 changed files with 95 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

123
AoC/2024/day_2/day_2.adb
View File

@ -3,59 +3,125 @@ with Ada.Containers.Vectors;
procedure Day_2 is
type Safety is (Unsafe, Safe);
type Ordering is (Increasing, Decreasing, Equal);
type Levels is array (Natural range <> ) of Integer;
type Ordering is (Increasing, Decreasing);
type Safety is (Safe, Unsafe);
type Report is
record
Values : Levels(0 .. 9);
Values : Levels(0 .. 9) := (others => 0);
Count : Natural := 0;
end record;
type Reports is array (Natural range <>) of Report;
type Orderings is array (Natural range <>) of Ordering;
type Safeties is array (Natural range <>) of Safety;
function Calculate_Report( R : Report ) return Safety is
Order : Ordering;
type Level_Report is
record
Order : Orderings( 0 .. 9 ) := (others => Equal);
Diff : Levels( 0 .. 9 ) := (others => 0);
Count : Natural := 0;
end record;
function Calculate_Levels( R : Report ) return Level_Report is
Out_R : Level_Report;
begin
if R.Count > 1 then
if R.Values(1) > R.Values(0) then
Order := Increasing;
elsif R.Values(1) < R.Values(0) then
Order := Decreasing;
else
return Unsafe;
end if;
else
for I in 0 .. R.Count - 2 loop
declare
Diff : Integer := R.Values(I+1) - R.Values(I);
begin
if Diff > 0 then
Out_R.Order(I) := Increasing;
elsif Diff < 0 then
Out_R.Order(I) := Decreasing;
else
Out_R.Order(I) := Equal;
end if;
Out_R.Diff(I) := abs(Diff);
end;
end loop;
Out_R.Count := R.Count - 1;
return Out_R;
end Calculate_Levels;
function Calculate_Report( Levels : Level_Report ) return Safety is
begin
if Levels.Diff(0) < 1 or Levels.Diff(0) > 3 then
return Unsafe;
end if;
for I in 1 .. R.Count - 1 loop
for I in 0 .. Levels.Count - 2 loop
if not (Levels.Order(I+1) = Levels.Order(I)) then
return Unsafe;
end if;
if Levels.Diff(I+1) < 1 or Levels.Diff(I+1) > 3 then
return Unsafe;
end if;
end loop;
if Levels.Order(0) = Equal then
return Unsafe;
end if;
return Safe;
end Calculate_Report;
function Calculate_Report_Lossy( R : Report ) return Safety is
Levels : Level_Report := Calculate_Levels(R);
begin
if Calculate_Report( Levels ) = Safe then
return Safe;
else
for I in 0 .. R.Count - 1 loop
declare
New_Report : Report;
begin
for J in 0 .. I-1 loop
New_Report.Values(J) := R.Values(J);
end loop;
for J in I+1 .. R.Count -1 loop
New_Report.Values(J-1) := R.Values(J);
end loop;
New_Report.Count := R.Count - 1;
Put_Line("Check level reduced report @" & Integer'Image(I));
Put_Line(R'Image);
Put_Line(New_Report'Image);
if Calculate_Report(Calculate_Levels( New_Report)) = Safe then
return Safe;
end if;
end;
end loop;
return Unsafe;
end if;
end Calculate_Report_Lossy;
function Get_Safe_Reports_Lossy( R : Reports ) return Natural is
Sum : Natural := 0;
begin
for Rep of R loop
declare
Diff : Integer := R.Values(I) - R.Values(I-1);
Adiff : Integer := abs(Diff);
Result : Safety := Calculate_Report_Lossy(Rep);
begin
if ADiff < 1 or ADiff > 3 then
return Unsafe;
elsif Diff > 0 and Order = Decreasing then
return Unsafe;
elsif Diff < 0 and Order = Increasing then
return Unsafe;
if Result = Safe then
Sum := @ + 1;
end if;
end;
end loop;
return Safe;
end Calculate_Report;
return Sum;
end Get_Safe_Reports_Lossy;
function Get_Safe_Reports( R : Reports ) return Natural is
Sum : Natural := 0;
begin
for Rep of R loop
declare
Result : Safety := Calculate_Report(Rep);
Result : Safety := Calculate_Report(Calculate_Levels(Rep));
begin
if Result = Safe then
Sum := @ + 1;
@ -131,4 +197,5 @@ procedure Day_2 is
begin
Put_Line("Day 2 1:" & Get_Safe_Reports(Read_File(File_Name))'Image);
Put_Line("Day 2 2:" & Get_Safe_Reports_Lossy(Read_File(File_Name))'Image);
end Day_2;