Rosetta Code

Commatizing numbers: Difference between revisions

Page Discussion

Commatizing numbers (view source)

Revision as of 13:41, 15 September 2018

6 bytes removed ,  5 years ago
m
→‎{{header|Perl}}: slight simplification
(Added Perl example)
m (→‎{{header|Perl}}: slight simplification)
Line 619:
sub c_ins {
my($s,$by,$sep) = @_;
($sc = reverse $s) =~ s/(.{$by})/$1$sep/g;
$sc =~ s/(.{$by})sep$/$1$sep/g;
$sreturn =~reverse s/$sep$//c;
return reverse $s;
}</lang>
{{out}}
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/245757"