Super Reduced String

  • + 0 comments

    Perl regex desicion:

    sub superReducedString {
        my $s = shift;
        
        while ($s =~ m/(.)\1/) {
            $s =~ s/(.)\1//;
        }
        return ($s) ? $s : "Empty String";
    }