Anonymous user
Strange numbers: Difference between revisions
m
→{{header|REXX}}: added COMMAS function.
Not a robot (talk | contribs) (Add COBOL) |
m (→{{header|REXX}}: added COMMAS function.) |
||
Line 1,640:
commas(HI) ' (inclusive)'
say
if show then say strip($)
exit 0
/*──────────────────────────────────────────────────────────────────────────────────────*/
commas: parse arg _; do jc=length(_)-3 to 1 by -3; _=insert(',', _, jc); end; return _</lang>
{{out|output|text= when using the default inputs:}}
<pre>
| |||