Add PWC-257 in Perl ch-1

1 files changed, 59 insertions, 0 deletions

diff --git a/challenge-257/spadacciniweb/perl/ch-1.pl b/challenge-257/spadacciniweb/perl/ch-1.pl
new file mode 100644
index 0000000000..6934c43d72
--- /dev/null
+++ b/challenge-257/spadacciniweb/perl/ch-1.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/env perl
+
+# Task 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 i.e. 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)
+
+use strict;
+use warnings;
+
+my @ints = (5, 2, 1, 6);
+smaller_than_current(\@ints);
+
+@ints = (1, 2, 0, 3);
+smaller_than_current(\@ints);
+
+@ints = (0, 1);
+smaller_than_current(\@ints);
+
+@ints = (9, 4, 9, 2);
+smaller_than_current(\@ints);
+
+exit 0;
+
+sub smaller_than_current {
+    my $ints = shift || [];
+
+    my @smaller = map { my $i = $_;
+            scalar map { $ints->[$_] < $ints->[$i] ? 1 : ()
+        } 0..$#ints
+    } 0..$#ints;
+    printf "(%s) -> (%s)\n",
+        (join ', ', @$ints ),
+        (join ', ', @smaller );
+
+    return undef;
+}