Anonymous user
Heronian triangles: Difference between revisions
m
→{{header|REXX}}: changed a comment.
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
|