Anonymous user
Pythagorean quadruples: Difference between revisions
m
→{{header|Pascal}}: same as version Algol68
(→{{header|Pascal}}: added Version 2 like REXX optimized) |
m (→{{header|Pascal}}: same as version Algol68) |
||
Line 1,204:
</pre>
===version 2===
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;
//find phythagorean Quadrupel up to a,b,c,d <= 2200
| |||