Heronian triangles: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: changed/added some comments and whitespace, resolved cut&paste error, clarified what is being displayed. |
m →{{header|REXX}}: changed a comment. |
||
Line 543:
return # /*return # of Heronian triangles.*/
/*──────────────────────────────────HGCD subroutine─────────────────────*/
hGCD: procedure; parse arg x /*this sub handles exactly
do j=2 for 2; y=arg(j); do until _==0; _=x//y; x=y; y=_; end; end
return x
|