diff options
| author | Ryan Thompson <i@ry.ca> | 2025-10-05 15:35:14 -0600 |
|---|---|---|
| committer | Ryan Thompson <i@ry.ca> | 2025-10-05 15:35:14 -0600 |
| commit | fab447901fcd3def5ba9874f0a6028052f2a04bd (patch) | |
| tree | 295556e019d7c0b125c760d59dec4131fea910c7 | |
| parent | a64570c2601b4fec8f117fd49cd0fd41523d0b3b (diff) | |
| download | perlweeklychallenge-club-fab447901fcd3def5ba9874f0a6028052f2a04bd.tar.gz perlweeklychallenge-club-fab447901fcd3def5ba9874f0a6028052f2a04bd.tar.bz2 perlweeklychallenge-club-fab447901fcd3def5ba9874f0a6028052f2a04bd.zip | |
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 |