diff options
| -rwxr-xr-x | challenge-286/wlmb/perl/ch-1.pl | 8 | ||||
| -rwxr-xr-x | challenge-286/wlmb/perl/ch-2.pl | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/challenge-286/wlmb/perl/ch-1.pl b/challenge-286/wlmb/perl/ch-1.pl index 7ae442676f..b35d764968 100755 --- a/challenge-286/wlmb/perl/ch-1.pl +++ b/challenge-286/wlmb/perl/ch-1.pl @@ -3,6 +3,10 @@ # Task 1: Self Spammer # # See https://wlmb.github.io/2024/09/08/PWC286/#task-1-self-spammer -use v5.36; -my @words = qw( @words = qw( ) say $words [ rand( 0+@words ) ] ; ); +use v5.36 ; +no warnings qw( qw ) ; +my @words = qw( #!/usr/bin/env perl # Perl weekly challenge 286 Task 1: Self Spammer See + https://wlmb.github.io/2024/09/08/PWC286/#task-1-self-spammer + use v5.36 no warnings qw + my @words = qw( ) say $words [ rand( 0+@words ) ] ; ) ; say $words [ rand( 0+@words ) ] ; diff --git a/challenge-286/wlmb/perl/ch-2.pl b/challenge-286/wlmb/perl/ch-2.pl index 08163d0a8a..28072c2d21 100755 --- a/challenge-286/wlmb/perl/ch-2.pl +++ b/challenge-286/wlmb/perl/ch-2.pl @@ -15,7 +15,7 @@ my @next=@ARGV; while(@next>2){ my @minmax; for my($p,$q,$r,$s)(@next){ - push @minmax, min($p,$q),max($r,$s); + push @minmax, min($p,$q),max($r,$s); } @next=@minmax; } |