Heronian triangles: Difference between revisions
Content deleted Content added
m →{{header|REXX}}: removed the need for parameter passing. |
m →{{header|REXX}}: added some comments. |
||
Line 450:
minP=min( p,minP); maxP=max( p,maxP); Lp=length(maxP)
minA=min(ar,minA); maxA=max(ar,maxA); La=length(maxA)
@.ar=; if @.ar.p.0==. then @.ar.p.0=0; _=@.ar.p.0+1 /*bump ctr.*/
@.ar.p.0=_; @.ar.p._=a b c /*uniqueTri*/
end /*c*/ /* [↑] keep each unique P items.*/
end /*b*/
end /*a*/
| |||