Anonymous user
Heronian triangles: Difference between revisions
m
→{{header|REXX}}: changes some comments.
m (→{{header|REXX}}: added some comments.) |
m (→{{header|REXX}}: changes some comments.) |
||
Line 448:
if ar==0 then iterate /*area=zero*/
#=#+1 /*a primitive Heronian triangle. */
minP=min( p,minP); maxP=max( p,maxP); Lp=length(maxP)
minA=min(ar,minA); maxA=max(ar,maxA); La=length(maxA); @.ar=
@.ar.p.0=_; @.ar.p._=a b c /*unique triangle.
end /*c*/ /* [↑] keep each unique P items.*/
end /*b*/
|