CVS difference for ai12s/ai12-0312-1.txt
--- ai12s/ai12-0312-1.txt 2020/12/17 04:13:52 1.18
+++ ai12s/ai12-0312-1.txt 2021/03/09 04:26:06 1.19
@@ -165,7 +165,8 @@
for I in Grid'Range(1) loop
declare
True_Count : constant Natural :=
- [for J in Grid'Range(2) => (if Grid (I, J) then 1 else 0)]'Reduce("+",0);
+ [for J in Grid'Range(2) =>
+ (if Grid (I, J) then 1 else 0)]'Reduce("+",0);
begin
Partial_Sum (Chunk) := @ + True_Count;
Partial_Min (Chunk) := Natural'Min(@, True_Count);
@@ -471,7 +472,8 @@
@b<for> I @b<in> Grid'Range(1) @b<loop>
@b<declare>
True_Count : @b<constant> Natural :=
- [@b<for> J @b<in> Grid'Range(2) =@> (@b<if> Grid (I, J) @b<then> 1 @b<else> 0)]'Reduce("+",0);
+ [@b<for> J @b<in> Grid'Range(2) =@>
+ (@b<if> Grid (I, J) @b<then> 1 @b<else> 0)]'Reduce("+",0);
@b<begin>
Partial_Sum (Chunk) := @@ + True_Count;
Partial_Min (Chunk) := Natural'Min(@@, True_Count);
@@ -479,9 +481,10 @@
@b<end>;
@b<end loop>;>
-@xcode< Put_Line("Total=" & Partial_Sum'Reduce("+", 0) &
- ", Min=" & Partial_Min'Reduce(Natural'Min, Natural'Last) &
- ", Max=" & Partial_Max'Reduce(Natural'Max, 0));
+@xcode< Put_Line
+ ("Total=" & Partial_Sum'Reduce("+", 0) &
+ ", Min=" & Partial_Min'Reduce(Natural'Min, Natural'Last) &
+ ", Max=" & Partial_Max'Reduce(Natural'Max, 0));
@b<end>;>
@i<For an example of an> @fa<iterator_filter>@i<, see 4.5.8.>
Questions? Ask the ACAA Technical Agent