Pythagorean triples: Difference between revisions

Content added Content deleted

Inline

@@ Line 32: / Line 32: @@
          Primitive_Cnt := Primitive_Cnt + 1;
          Total_Cnt     := Total_Cnt + Max_Perimeter / Perimeter;
-         New_Triangle(A-2*B+2*C,     2*A-B+2*C,    2*A-2*B+3*C,
+         New_Triangle(A-2*B+2*C,     2*A-B+2*C,    2*A-2*B+3*C,   Max_Perimeter, Total_Cnt, Primitive_Cnt);
-                      Max_Perimeter, Total_Cnt, Primitive_Cnt);
+         New_Triangle(A+2*B+2*C,     2*A+B+2*C,    2*A+2*B+3*C,   Max_Perimeter, Total_Cnt, Primitive_Cnt);
-         New_Triangle(A+2*B+2*C,     2*A+B+2*C,    2*A+2*B+3*C,
+         New_Triangle(2*B+2*C-A,     B+2*C-2*A,    2*B+3*C-2*A,   Max_Perimeter, Total_Cnt, Primitive_Cnt);
-                      Max_Perimeter, Total_Cnt, Primitive_Cnt);
-         New_Triangle(2*B+2*C-A,     B+2*C-2*A,    2*B+3*C-2*A,
-                      Max_Perimeter, Total_Cnt, Primitive_Cnt);
       end if;
    end New_Triangle;