Heronian triangles: Difference between revisions

Heronian triangles (view source)

2 bytes added , 9 years ago

m

→‎{{header|REXX}}: put statements on same line instead of splitting them for perusability.

Anonymous user

Revision as of 11:06, 7 January 2015 (view source) rosettacode>Gerard Schildberger (→‎{{header\|REXX}}: added check for: if side A is even, sides B and C must be odd. This decreased execution time by around 1/3.) ← Older edit		Revision as of 11:15, 7 January 2015 (view source) rosettacode>Gerard Schildberger m (→‎{{header\|REXX}}: put statements on same line instead of splitting them for perusability.) Newer edit →
Line 695: Heron: @.=.; y=' '; minP=9e9; maxP=0; minA=9e9; maxA=0; Ln=length(N) #=0; #.=0; #.2=1 #.3=1; #.7=1; #.8=1 /¬good √./ do a=3 to N; ~~ev=\(a//2)~~ /start at a minimum side length./ ~~inc~~ev=~~1+ev~~ \ (a//2); inc=1+ev /if A is even, B & C must be odd/ do b=a+ev to N by inc; ab=a+b /AB: is used for summing below./ do c=b to N by inc; p=ab+c; s=p/2 /calc Perimeter, S/