Merge pull request #8027 from jaldhar/challenge-215

Challenge 215 by Jaldhar H. Vyas.

5 files changed, 83 insertions, 0 deletions

diff --git a/challenge-215/jaldhar-h-vyas/blog.txt b/challenge-215/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..b3c0462110
--- /dev/null
+++ b/challenge-215/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2023/05/perl_weekly_challenge_week_215.html
diff --git a/challenge-215/jaldhar-h-vyas/perl/ch-1.pl b/challenge-215/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..e4614d3f3e
--- /dev/null
+++ b/challenge-215/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my @words = @ARGV;
+
+my $removals = 0;
+
+for my $word (@words) {
+    my $sorted = join q{}, (sort (split //, $word));
+    if ($word ne $sorted) {
+        $removals++;
+    }
+}
+
+say $removals;
diff --git a/challenge-215/jaldhar-h-vyas/perl/ch-2.pl b/challenge-215/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..b4c1595e66
--- /dev/null
+++ b/challenge-215/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use 5.030;
+use warnings;
+
+my ($count, @numbers) = @ARGV;
+my $replaced = 0;
+
+for my $i (0 .. scalar @numbers - 1) {
+    if (
+        $numbers[$i] == 0 &&
+        ($i == 0 || $numbers[$i - 1] == 0) &&
+        ($i == scalar @numbers - 1 || $numbers[$i + 1] == 0)
+    ) {
+        $numbers[$i] = 1;
+        $replaced++;
+    }
+
+    if ($replaced == $count) {
+        say 1;
+        exit;
+    }
+}
+
+say 0;
diff --git a/challenge-215/jaldhar-h-vyas/raku/ch-1.raku b/challenge-215/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..9591002334
--- /dev/null
+++ b/challenge-215/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@words
+) {
+    my $removals = 0;
+
+    for @words -> $word {
+        my $sorted = $word.comb.sort.join;
+        if $word ne $sorted {
+            $removals++;
+        }
+    }
+
+    say $removals;
+}
\ No newline at end of file
diff --git a/challenge-215/jaldhar-h-vyas/raku/ch-2.raku b/challenge-215/jaldhar-h-vyas/raku/ch-2.raku
new file mode 100755
index 0000000000..3a51632ca2
--- /dev/null
+++ b/challenge-215/jaldhar-h-vyas/raku/ch-2.raku
@@ -0,0 +1,26 @@
+#!/usr/bin/raku
+
+sub MAIN(
+    *@ARGS
+) {
+    my ($count, @numbers) = @ARGS;
+    my $replaced = 0;
+
+    for 0 .. @numbers.end -> $i {
+        if
+            @numbers[$i] == 0 &&
+            ($i == 0 || @numbers[$i - 1] == 0) &&
+            ($i == @numbers.end || @numbers[$i + 1] == 0)
+        {
+            @numbers[$i] = 1;
+            $replaced++;
+        }
+
+        if $replaced == $count {
+            say 1;
+            exit;
+        }
+    }
+
+    say 0;
+}
\ No newline at end of file