diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-10-06 00:46:43 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-06 00:46:43 +0100 |
| commit | a79c5a46a6d849dbb5df4b72e035a70d24b8fcae (patch) | |
| tree | 5a9e7fe677365d97b89ca9d1d364da4c45eabdea | |
| parent | 787331f398cc3d82c173daa7f44b316a67252b7d (diff) | |
| parent | fab447901fcd3def5ba9874f0a6028052f2a04bd (diff) | |
| download | perlweeklychallenge-club-a79c5a46a6d849dbb5df4b72e035a70d24b8fcae.tar.gz perlweeklychallenge-club-a79c5a46a6d849dbb5df4b72e035a70d24b8fcae.tar.bz2 perlweeklychallenge-club-a79c5a46a6d849dbb5df4b72e035a70d24b8fcae.zip | |
Merge pull request #12795 from rjt-pl/master
Remove unnecessary sub
| -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 |