Pythagorean quadruples: Difference between revisions
Content added Content deleted
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: | Line 1,229: | ||
begin |
begin |
||
For a := 1 to MaxFactor do |
For a := 1 to MaxFactor do |
||
For b := |
For b := 1 to a do |
||
Begin |
Begin |
||
s := a*a+b*b; |
s := a*a+b*b; |