Special pythagorean triplet: Difference between revisions
Content added Content deleted
(→{{header|Phix}}: strictly adhering to the task description) |
m (→{{header|REXX}}: added wording to the REXX section header.) |
||
Line 786: | Line 786: | ||
Also, there were multiple shortcuts to limit an otherwise exhaustive search; Once a sum or a square was too big, |
Also, there were multiple shortcuts to limit an otherwise exhaustive search; Once a sum or a square was too big, |
||
<br>the next integer was used. |
<br>the next integer was used (for the previous DO loop). |
||
<lang rexx>/*REXX pgm computes integers A, B, C that solve: 0<A<B<C; A+B+C = 1000; A^2+B^2 = C^2 */ |
<lang rexx>/*REXX pgm computes integers A, B, C that solve: 0<A<B<C; A+B+C = 1000; A^2+B^2 = C^2 */ |
||
parse arg s hi n . /*obtain optional argument from the CL.*/ |
parse arg s hi n . /*obtain optional argument from the CL.*/ |