Anonymous user
Pythagorean triples: Difference between revisions
m
→{{header|REXX}}: added more whitespace in output, used different form on "n". -- ~~~~
(→{{header|REXX}}: added separator line for subroutine; made REXX code compliant, added whitespace. -- ~~~~) |
m (→{{header|REXX}}: added more whitespace in output, used different form on "n". -- ~~~~) |
||
Line 1,603:
=={{header|REXX}}==
A brute force approach.
<lang rexx>/*REXX pgm
/* perimeter of N, and also count how many of them are primatives. */
parse arg
trips=0
prims=0
do a=3 to
end
say 'max perimeter = '
left('',9) "Pythagorean triples =" trips, /*left('',0) ≡ 9 blanks.*/
left('',9) 'primatives =' prims
exit
/*──────────────────────────────────GCD subroutine──────────────────────*/
gcd: procedure; arg x,y; do until _==0; _=x//y;
'''output''' when using the input of: <tt> 100 </tt>
<pre style="overflow:scroll">
max perimeter = 100 Pythagorean triples = 17 primatives = 7
</pre>
|