Anonymous user
Law of cosines - triples: Difference between revisions
m
→{{header|REXX}}: fixed code to insert comma into an integer (not a FP expressed number).
m (→{{header|REXX}}: added highlighting.) |
m (→{{header|REXX}}: fixed code to insert comma into an integer (not a FP expressed number).) |
||
Line 1,880:
commas: parse arg ?; do jc=length(?)-3 to 1 by -3; ?=insert(',', ?, jc); end; return ?
dAng: w= length(s); ang= ' 'd"º " uq' '; ss= s * s; @sol= " solutions found for"; return
foot: say right(commas(#)
head: #= 0; parse arg d,uq,s; @= ','; call dAng; say center(ang, 65, '═'); return
show: #=#+1; arg p; if p>0 then say ' ('right(a,w)@ right(b,w)@ right(c,w)")"; return
| |||