Merge pull request #9628 from robbie-hatley/rh257

Robbie Hatley's Perl solution to The Weekly Challenge 257-1.

Author: manwar

challenge-257/robbie-hatley/perl/ch-1.pl

@@ -0,0 +1,110 @@
+#!/usr/bin/env -S perl -CSDA
+
+=pod
+
+--------------------------------------------------------------------------------------------------------------
+COLOPHON:
+This is a 110-character-wide Unicode UTF-8 Perl-source-code text file with hard Unix line breaks ("\x0A").
+¡Hablo Español! Говорю Русский. Björt skjöldur. ॐ नमो भगवते वासुदेवाय. 看的星星，知道你是爱。麦藁雪、富士川町、山梨県。
+
+--------------------------------------------------------------------------------------------------------------
+TITLE BLOCK:
+Solutions in Perl for The Weekly Challenge 257-1.
+Written by Robbie Hatley on Wed Feb 21, 2024.
+
+--------------------------------------------------------------------------------------------------------------
+PROBLEM DESCRIPTION:
+Task 257-1: Smaller than Current
+Submitted by: Mohammad Sajid Anwar
+You are given a array of integers, @ints. Write a script to find
+out how many integers are smaller than current.
+Ie: foreach ints[i], count ints[j] < ints[i] where i != j.
+
+Example 1:
+Input: @ints = (5, 2, 1, 6)
+Output: (2, 1, 0, 3)
+For $ints[0] = 5, there are two integers (2,1) smaller than 5.
+For $ints[1] = 2, there is one integer (1) smaller than 2.
+For $ints[2] = 1, there is none integer smaller than 1.
+For $ints[3] = 6, there are three integers (5,2,1) smaller than 6.
+
+Example 2:
+Input: @ints = (1, 2, 0, 3)
+Output: (1, 2, 0, 3)
+
+Example 3:
+Input: @ints = (0, 1)
+Output: (0, 1)
+
+Example 4:
+Input: @ints = (9, 4, 9, 2)
+Output: (2, 1, 2, 0)
+
+--------------------------------------------------------------------------------------------------------------
+PROBLEM NOTES:
+Nested foreach will solve this:
+sub smaller ($aref) {
+   my @smaller = ();
+   foreach my $x (@$aref) {
+      my $smaller = 0;
+      foreach my $y (@$aref) {
+         $y < $x and ++$smaller;
+      }
+      push @smaller, $smaller;
+   }
+   return @smaller;
+
+--------------------------------------------------------------------------------------------------------------
+IO NOTES:
+Input is via either built-in variables or via @ARGV. If using @ARGV, provide one argument which must be a
+single-quoted array of arrays of integers, in proper Perl syntax, like so:
+./ch-1.pl '([42, -42, 8, -17, -23, 27], [11, 12, 13, 14, 15])'
+
+Output is to STDOUT and will be each input followed by the corresponding output.
+
+=cut
+
+# ------------------------------------------------------------------------------------------------------------
+# PRAGMAS, MODULES, AND SUBROUTINES:
+use v5.38;
+sub smaller ($aref) {
+   my @smaller = ();
+   foreach my $x (@$aref) {
+      my $smaller = 0;
+      foreach my $y (@$aref) {
+         $y < $x and ++$smaller;
+      }
+      push @smaller, $smaller;
+   }
+   return @smaller;
+}
+
+# ------------------------------------------------------------------------------------------------------------
+# INPUTS:
+my @arrays = @ARGV ? eval($ARGV[0]) :
+(
+   # Example 1 Input:
+   [5, 2, 1, 6],
+   # Expected Output: (2, 1, 0, 3)
+
+   # Example 2 Input:
+   [1, 2, 0, 3],
+   # Expected Output: (1, 2, 0, 3)
+
+   # Example 3 Input:
+   [0, 1],
+   # Expected Output: (0, 1)
+
+   # Example 4 Input:
+   [9, 4, 9, 2],
+   # Expected Output: (2, 1, 2, 0)
+);
+
+# ------------------------------------------------------------------------------------------------------------
+# MAIN LOOP:
+for my $aref (@arrays) {
+   say '';
+   say 'Array of integers:    (', join(', ', @$aref         ), ')';
+   say 'Smaller than current: (', join(', ', smaller($aref) ), ')';
+}
+exit;