Merge pull request #8343 from Solathian/branch-for-challenge-224

Added file!

1 files changed, 49 insertions, 0 deletions

diff --git a/challenge-224/solathian/perl/ch-1.pl b/challenge-224/solathian/perl/ch-1.pl
new file mode 100644
index 0000000000..aefb3c2935
--- /dev/null
+++ b/challenge-224/solathian/perl/ch-1.pl
@@ -0,0 +1,49 @@
+#!usr/bin/perl
+use v5.36;
+
+# Challenge 224 - 1 - Special Notes
+
+# You are given two strings, $source and $target.
+# Write a script to find out if using the characters (only once) from source, a target string can be created.
+
+sn("abc", "xyz");                       # false
+sn("scriptinglanguage", "perl");        # true
+sn("aabbcc", "abc");                    # true
+
+
+sub sn($source, $target)
+{
+    my $retVal  = "true";
+    
+    # create arrays from the strings
+    my @source  = split(//, $source);
+    my @target  = split(//, $target);
+    
+    
+    # build hash
+    my %source;
+    foreach my $elem (@source)
+    {
+        $source{$elem}++;
+    }
+    
+    # check the target against the hash, decrase counter if needed, remove elements if 0 is reached
+    foreach my $targetChar (@target)
+    {
+        if(exists $source{$targetChar})
+        {
+            $source{$targetChar}--;
+            
+            delete $source{$targetChar}       if($source{$targetChar} == 0)
+
+        }
+        else
+        {
+            $retVal = "false";
+            last;
+        }
+    }
+    
+    say $retVal;
+
+}
\ No newline at end of file