You are viewing a single comment's thread. Return to all comments →
Mine in Perl
use strict;
my @newArray; my $string = ;
my @str = split //, count = 0;
for(my i if(i] eq i+1]) { splice @str, i = -1; } } my lf == 0) { print "Empty String"; } else { print @str; }
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 →
Mine in Perl
use strict;
my @newArray; my $string = ;
my @str = split //, count = 0;
for(my i if(i] eq i+1]) {
splice @str, i = -1;
}
} my lf == 0) { print "Empty String"; } else { print @str; }