Anonymous user
Heronian triangles: Difference between revisions
m
→{{header|REXX}}: aligned statement and a comment.
m (→{{header|REXX}}: changed the calculation of digits (for precision) to handle different interpretations of numeric precision (using trailing zeroes).) |
m (→{{header|REXX}}: aligned statement and a comment.) |
||
Line 701:
if pos(.,_)\==0 then iterate /*not an integer. */
parse var _ '' -1 q ; if #.q then iterate /*not good square. */
ar=Isqrt(_); if ar*ar\==_ then iterate /*area not integer.*/
if hGCD(a,b,c)\==1 then iterate /*GCD of sides ¬1. */
#=#+1 /*got prim. H. tri.*/
|