diff options
| -rw-r--r-- | challenge-341/ryan-thompson/perl/ch-1.pl | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/challenge-341/ryan-thompson/perl/ch-1.pl b/challenge-341/ryan-thompson/perl/ch-1.pl index 994eefd472..cf34171986 100644 --- a/challenge-341/ryan-thompson/perl/ch-1.pl +++ b/challenge-341/ryan-thompson/perl/ch-1.pl @@ -3,11 +3,6 @@ use v5.38; # Upper/lowercase are usually on the same key, thus we ignore case -sub apssible { grep !/[@_\0]/i, split /\s+/, shift } -sub pssible { - #my $re = qr/[@_\0]/i; - #say STDERR $re; - grep !/[@_\0]/i, split /\s+/, shift -} +sub pssible { grep !/[@_\0]/i, split /\s+/, shift } say join ' ', pssible(shift, @ARGV) if @ARGV |