You are viewing a single comment's thread. Return to all comments →
Perl regex desicion:
sub superReducedString { my $s = shift; while ($s =~ m/(.)\1/) { $s =~ s/(.)\1//; } return ($s) ? $s : "Empty String"; }
Seems like cookies are disabled on this browser, please enable them to open this website
Super Reduced String
You are viewing a single comment's thread. Return to all comments →
Perl regex desicion: