Pythagorean quadruples: Difference between revisions
Content added Content deleted
(→{{header|Pascal}}: added Version 2 like REXX optimized) |
m (→{{header|Pascal}}: same as version Algol68) |
||
Line 1,204: | Line 1,204: | ||
</pre> |
</pre> |
||
===version 2=== |
===version 2=== |
||
Using a variant of [http://rosettacode.org/wiki/Pythagorean_quadruples#optimized REXX optimized] optimized<BR> |
Using a variant of [http://rosettacode.org/wiki/Pythagorean_quadruples#optimized REXX optimized] optimized<BR> |
||
As I now see the same as [http://rosettacode.org/wiki/Pythagorean_quadruples#ALGOL_68 Algol68]<BR> |
|||
Quite fast. |
|||
<lang pascal>program pythQuad_2; |
<lang pascal>program pythQuad_2; |
||
//find phythagorean Quadrupel up to a,b,c,d <= 2200 |
//find phythagorean Quadrupel up to a,b,c,d <= 2200 |