diff options
| -rw-r--r-- | challenge-215/avery-adams/blogs.txt | 2 | ||||
| -rw-r--r-- | challenge-215/avery-adams/perl/ch-1.pl | 8 | ||||
| -rw-r--r-- | challenge-215/avery-adams/perl/ch-2.pl | 12 |
3 files changed, 22 insertions, 0 deletions
diff --git a/challenge-215/avery-adams/blogs.txt b/challenge-215/avery-adams/blogs.txt new file mode 100644 index 0000000000..6618083986 --- /dev/null +++ b/challenge-215/avery-adams/blogs.txt @@ -0,0 +1,2 @@ +https://blogs.perl.org/users/oldtechaa/2023/05/perl-weekly-challenge-215---bad-words-and-looking-for-zeros.html +https://dev.to/oldtechaa/perl-weekly-challenge-215-bad-words-and-looking-for-zeros-3ihg diff --git a/challenge-215/avery-adams/perl/ch-1.pl b/challenge-215/avery-adams/perl/ch-1.pl new file mode 100644 index 0000000000..f4132e65e4 --- /dev/null +++ b/challenge-215/avery-adams/perl/ch-1.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl + +use strict; +use v5.24; + +my $removed = 0; +foreach (@ARGV) {if ($_ ne join('', sort(split(//, $_)))) {$removed++}} +say $removed; diff --git a/challenge-215/avery-adams/perl/ch-2.pl b/challenge-215/avery-adams/perl/ch-2.pl new file mode 100644 index 0000000000..1a5b1f1f28 --- /dev/null +++ b/challenge-215/avery-adams/perl/ch-2.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +use strict; +use v5.24; + +my $count = shift; +say 'You chose a count of 0, please provide a different count.' and exit if $count == 0; +say 'There are not enough elements, please provide more elements to replace.' and exit if @ARGV < 3; +for (my $i = 1; $i < $#ARGV - 1; $i++) { + if (!($ARGV[$i - 1] + $ARGV[$i] + $ARGV[$i + 1])) {$ARGV[$i] = 1 and $count--} +} +say ($count > 0 ? '0' : '1'); |