|  | @@ -10,10 +10,7 @@ procedure Red_Nosed_Reports is
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |     subtype Level is Positive;
 |  |     subtype Level is Positive;
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  | -   function Reversed_Sort (Left, Right : Level) return Boolean is
 |  | 
 | 
											
												
													
														|  | -   begin
 |  | 
 | 
											
												
													
														|  | -      return Right < Left;
 |  | 
 | 
											
												
													
														|  | -   end Reversed_Sort;
 |  | 
 | 
											
												
													
														|  | 
 |  | +   function Reversed_Sort (Left, Right : Level) return Boolean;
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |     package Report is
 |  |     package Report is
 | 
											
												
													
														|  |       new Ada.Containers.Vectors (Index_type => Positive,
 |  |       new Ada.Containers.Vectors (Index_type => Positive,
 | 
											
										
											
												
													
														|  | @@ -24,6 +21,11 @@ procedure Red_Nosed_Reports is
 | 
											
												
													
														|  |     package Reverse_Report_Sorting is
 |  |     package Reverse_Report_Sorting is
 | 
											
												
													
														|  |       new Report.Generic_Sorting ("<" => Reversed_Sort);
 |  |       new Report.Generic_Sorting ("<" => Reversed_Sort);
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  | 
 |  | +   function Reversed_Sort (Left, Right : Level) return Boolean is
 | 
											
												
													
														|  | 
 |  | +   begin
 | 
											
												
													
														|  | 
 |  | +      return Right < Left;
 | 
											
												
													
														|  | 
 |  | +   end Reversed_Sort;
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  |     subtype Valid_Range is Positive range 1 .. 3;
 |  |     subtype Valid_Range is Positive range 1 .. 3;
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |     Safe_Reports_Number : Natural := 0;
 |  |     Safe_Reports_Number : Natural := 0;
 | 
											
										
											
												
													
														|  | @@ -51,14 +53,11 @@ begin
 | 
											
												
													
														|  |              begin
 |  |              begin
 | 
											
												
													
														|  |                 while Current_Cursor /= Current_Report.Last and then Safe loop
 |  |                 while Current_Cursor /= Current_Report.Last and then Safe loop
 | 
											
												
													
														|  |                    Next (Current_Cursor);
 |  |                    Next (Current_Cursor);
 | 
											
												
													
														|  | -                  declare
 |  | 
 | 
											
												
													
														|  | -                     Valid_Value : Valid_Range;
 |  | 
 | 
											
												
													
														|  | -                     pragma Unreferenced (Valid_Value);
 |  | 
 | 
											
												
													
														|  | -                  begin
 |  | 
 | 
											
												
													
														|  | -                     Valid_Value := abs (Element (Current_Cursor) - Previous);
 |  | 
 | 
											
												
													
														|  | -                  exception
 |  | 
 | 
											
												
													
														|  | -                     when Constraint_Error => Safe := False;
 |  | 
 | 
											
												
													
														|  | -                  end;
 |  | 
 | 
											
												
													
														|  | 
 |  | +                  if abs (Element (Current_Cursor) - Previous)
 | 
											
												
													
														|  | 
 |  | +                     not in Valid_Range'Range
 | 
											
												
													
														|  | 
 |  | +                  then
 | 
											
												
													
														|  | 
 |  | +                     Safe := False;
 | 
											
												
													
														|  | 
 |  | +                  end if;
 | 
											
												
													
														|  |                    Previous := Element (Current_Cursor);
 |  |                    Previous := Element (Current_Cursor);
 | 
											
												
													
														|  |                 end loop;
 |  |                 end loop;
 | 
											
												
													
														|  |  
 |  |  
 |