Strange numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add COBOL) |
m (→{{header|REXX}}: added COMMAS function.) |
||
| Line 1,640: | Line 1,640: | ||
commas(HI) ' (inclusive)' |
commas(HI) ' (inclusive)' |
||
say |
say |
||
if show then say strip($) |
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:}} |
{{out|output|text= when using the default inputs:}} |
||
<pre> |
<pre> |
||