Skip to content

Instantly share code, notes, and snippets.

@les-peters

les-peters/2022-12-26.pl

Created December 27, 2022 21:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save les-peters/8c9368e5640b7f5e08f58b1bf42a3b48 to your computer and use it in GitHub Desktop.
Save les-peters/8c9368e5640b7f5e08f58b1bf42a3b48 to your computer and use it in GitHub Desktop.
Download ZIP
String of Zeros
Raw
2022-12-26.pl
sub replaceZeros($) {
$out_str = $_[0];
$out_str =~ s/(0+)/length($1)/ge;
printf("$out_str\n");
}
replaceZeros("1234500");
replaceZeros('1234500362000440');
replaceZeros('123450036200044');
replaceZeros('000000000000');
replaceZeros('123456789');
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment