Merge pull request #8036 from Solathian/branch-for-challenge-215

Added files for challenge 215

2 files changed, 52 insertions, 0 deletions

diff --git a/challenge-215/solathian/perl/ch-1.pl b/challenge-215/solathian/perl/ch-1.pl
new file mode 100644
index 0000000000..9287c5699f
--- /dev/null
+++ b/challenge-215/solathian/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!usr/bin/perl
+use v5.36;
+
+# Challenge 215 - 1 - Odd one Out
+oddOne('abc', 'xyz', 'tsu');
+oddOne('aBc', 'xyz', 'tsu');
+oddOne('rat', 'cab', 'dad');
+oddOne('x', 'y', 'z');
+oddOne('x', 'y', 'z');
+
+
+sub oddOne(@strings)
+{
+    my @return;
+    
+    foreach my $string (@strings)
+    {
+        # the task does not states that, but lowercase everything
+        next    if( $string ne  join('', sort {lc $a cmp lc $b}  split('', $string)));
+
+        push(@return, $string);
+    }
+    say @strings - @return;     # the number of removed items
+    
+    return \@return;
+}
\ No newline at end of file
diff --git a/challenge-215/solathian/perl/ch-2.pl b/challenge-215/solathian/perl/ch-2.pl
new file mode 100644
index 0000000000..55b59f597e
--- /dev/null
+++ b/challenge-215/solathian/perl/ch-2.pl
@@ -0,0 +1,26 @@
+#!usr/bin/perl
+use v5.36;
+
+# Challenge 215 - 2 - Number Placement
+
+numberPlacement(1, (1,0,0,0,1));
+numberPlacement(2, (1,0,0,0,1));
+numberPlacement(3, (1,0,0,0,0,0,0,0,1));
+
+
+sub numberPlacement($number, @list)
+{
+    my $string = join('', @list);
+    my $retVal = 1;
+
+    for(1..$number)
+    {
+        if($string !~ s/000/010/)
+        {
+            $retVal = 0;
+            last;
+        }
+    }
+ 
+    say $retVal;
+}
\ No newline at end of file