diff options
| -rw-r--r-- | challenge-235/avery-adams/blogs.txt | 2 | ||||
| -rw-r--r-- | challenge-235/avery-adams/perl/ch-1.pl | 17 | ||||
| -rw-r--r-- | challenge-235/avery-adams/perl/ch-2.pl | 13 |
3 files changed, 32 insertions, 0 deletions
diff --git a/challenge-235/avery-adams/blogs.txt b/challenge-235/avery-adams/blogs.txt new file mode 100644 index 0000000000..7df0822a95 --- /dev/null +++ b/challenge-235/avery-adams/blogs.txt @@ -0,0 +1,2 @@ +https://dev.to/oldtechaa/perl-weekly-challenge-235-splicing-and-dicing-42lj +https://blogs.perl.org/users/oldtechaa/2023/09/perl-weekly-challenge-235---splicing-and-dicing.html diff --git a/challenge-235/avery-adams/perl/ch-1.pl b/challenge-235/avery-adams/perl/ch-1.pl new file mode 100644 index 0000000000..ff8653cdc0 --- /dev/null +++ b/challenge-235/avery-adams/perl/ch-1.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl +use v5.36; + +my $success = 0; +REMOVAL: for my $removal (0 .. $#ARGV) { + my @modified = @ARGV; + splice(@modified, $removal, 1); + for my $scan (1 .. $#modified) { + if($modified[$scan] <= $modified[$scan - 1]) { + next REMOVAL; + } + } + $success = 1; + last; +} + +say ($success ? 'true' : 'false'); diff --git a/challenge-235/avery-adams/perl/ch-2.pl b/challenge-235/avery-adams/perl/ch-2.pl new file mode 100644 index 0000000000..a4028a60ac --- /dev/null +++ b/challenge-235/avery-adams/perl/ch-2.pl @@ -0,0 +1,13 @@ +#!/usr/bin/perl +use v5.36; + +my @ints = @ARGV; +for(my $i = 0; $i <= $#ints; $i++) { + if($ints[$i] == 0) { + splice(@ints, $i, 0, 0); + pop(@ints); + $i++; + } +} + +say('(', join(', ', @ints), ')'); |