Solution for Perl Weekly Challenge - Task#1

1 files changed, 26 insertions, 0 deletions

diff --git a/challenge-243/vinod-k/perl/ch-1.pl b/challenge-243/vinod-k/perl/ch-1.pl
new file mode 100644
index 0000000000..86ef5ccf06
--- /dev/null
+++ b/challenge-243/vinod-k/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my @a = (2, 4, 3, 5, 1);
+
+my $cnt = getReversePairs(@a);
+print "Number of reverse pairs: $cnt\n";
+
+sub getReversePairs {
+    my (@arr) = @_;
+    my $n = scalar @arr;
+
+    my $count = 0;
+    my ($i, $j) = 0;
+
+    for ($i = 0 ; $i < $n ; $i++) {
+        for ($j = $i + 1 ; $j < $n ; $j++) {
+            if ($arr[$i] > (2 * $arr[$j])) {
+                $count += 1;
+            }
+        }
+    }
+    return $count;
+}