Merge pull request #8018 from oldtechaa/avery-adams-215

Challenge 215 solutions for Avery Adams

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');