From fab447901fcd3def5ba9874f0a6028052f2a04bd Mon Sep 17 00:00:00 2001 From: Ryan Thompson Date: Sun, 5 Oct 2025 15:35:14 -0600 Subject: Remove unnecessary sub --- challenge-341/ryan-thompson/perl/ch-1.pl | 7 +------ 1 file changed, 1 insertion(+), 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 -- cgit