From 6b5c53b11465fd0d0a76a6be57885aba47fe5322 Mon Sep 17 00:00:00 2001
From: Piyush Maurya <piyushkumarmaurya@gmail.com>
Date: Mon, 22 Oct 2018 20:36:38 +0530
Subject: [PATCH] Quick Sort in perl

---
 QuickSort.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 QuickSort.pl

diff --git a/QuickSort.pl b/QuickSort.pl
new file mode 100644
index 0000000..fa89b54
--- /dev/null
+++ b/QuickSort.pl
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+
+sub partition {
+    my ($lista, $p, $r) = @_;
+    my $x = $$lista[$r];
+    my $i = $p - 1;
+    for (my $j = $p; $j < @$lista - 1; $j++) {
+        if ($$lista[$j] <= $x) {
+            $i++;
+            ($$lista[$i], $$lista[$j]) = ($$lista[$j], $$lista[$i]);
+        }
+    }
+    ($$lista[$i + 1], $$lista[$r]) = ($$lista[$r], $$lista[$i + 1]);
+    return $i + 1;
+}
+
+
+sub qsort {
+    my ($lista, $p, $r) = @_;
+    if ($p < $r) {
+        my $q = &partition(\@$lista, $p, $r);
+        &qsort(\@$lista, $p, $q - 1);
+        &qsort(\@$lista, $q + 1, $r);
+    }
+}
\ No newline at end of file