Commatizing numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 619: / Line 619: @@
 sub c_ins {
     my($s,$by,$sep) = @_;
-    $s = reverse $s;
+    ($c = reverse $s) =~ s/(.{$by})/$1$sep/g;
-    $s =~ s/(.{$by})/$1$sep/g;
+    $c =~ s/$sep$//;
-    $s =~ s/$sep$//;
+    return reverse $c;
-    return reverse $s;
 }</lang>
 {{out}}