Anonymous user
Pythagorean quadruples: Difference between revisions
m
→version 2: changed BuildSumA2B2 For b := a to maxfacot => For b := 1 to a do speedup for bigger MaxFactor 4.2s -> 3,8s
m (→{{header|Pascal}}: same as version Algol68) |
m (→version 2: changed BuildSumA2B2 For b := a to maxfacot => For b := 1 to a do speedup for bigger MaxFactor 4.2s -> 3,8s) |
||
Line 1,229:
begin
For a := 1 to MaxFactor do
For b :=
Begin
s := a*a+b*b;
|