Rosetta Code/Rank languages by popularity: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: updated the number of computer programming languages that are on Rosetta Code.) |
m (→REXX program: simplified and optimized the COMMAS function.) |
||
Line 4,490: | Line 4,490: | ||
exit /*stick a fork in it, we're all done. */ |
exit /*stick a fork in it, we're all done. */ |
||
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
||
commas: procedure; |
commas: procedure; arg _; do j=length(_)-3 to 1 by -3; _=insert(",",_,j); end; return _ |
||
e= verify(n, #0, , verify(n, #0., 'M')) - 4 /* [↓] insert commas into a number*/ |
|||
do j=e to b by -3; _= insert(",", _, j); end /*j*/; return _ |
|||
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
/*──────────────────────────────────────────────────────────────────────────────────────*/ |
||
eSort: procedure expose #. @. !tr.; arg N,p2; h= N /*sort: number of members*/ |
eSort: procedure expose #. @. !tr.; arg N,p2; h= N /*sort: number of members*/ |