From 6e58c041355cf231b3c3e9202baad95c447678cc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 8 Nov 2015 11:27:54 -0800
Subject: Median of three pivot selection in quicksort.

* lib.c (med_of_three, middle_pivot): New static functions.
(quicksort): Use med_of_three to choose a pivot above a
threshold array size, otherwise just the middle element.
---
 lib.c | 52 +++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 49 insertions(+), 3 deletions(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 6305cdee..c060ed4b 100644
--- a/lib.c
+++ b/lib.c
@@ -6346,13 +6346,59 @@ static void swap(val vec, val i, val j)
   }
 }
 
+static cnum med_of_three(val vec, val lessfun, val keyfun, cnum from, cnum to,
+                         val *pkval)
+{
+  cnum mid = from + (to - from) / 2;
+  val fval = ref(vec, num_fast(from));
+  val mval = ref(vec, num_fast(mid));
+  val tval = ref(vec, num_fast(to - 1));
+  val fkval = funcall1(keyfun, fval);
+  val mkval = funcall1(keyfun, mval);
+  val tkval = funcall1(keyfun, tval);
+
+  if (funcall2(lessfun, fkval, mkval)) {
+    if (funcall2(lessfun, mkval, tval)) {
+      *pkval = mkval;
+      return mid;
+    } else if (funcall2(lessfun, fkval, tkval)) {
+      *pkval = tkval;
+      return to - 1;
+    } else {
+      *pkval = fkval;
+      return from;
+    }
+  } else {
+    if (funcall2(lessfun, fkval, tval)) {
+      *pkval = fkval;
+      return from;
+    } else if (funcall2(lessfun, mkval, tkval)) {
+      *pkval = tkval;
+      return to - 1;
+    } else {
+      *pkval = mkval;
+      return mid;
+    }
+  }
+}
+
+static cnum middle_pivot(val vec, val lessfun, val keyfun, cnum from, cnum to,
+                         val *pkval)
+{
+    cnum pivot = from + (to - from) / 2;
+    val pval = ref(vec, num_fast(pivot));
+    *pkval = funcall1(keyfun, pval);
+    return pivot;
+}
+
 static void quicksort(val vec, val lessfun, val keyfun, cnum from, cnum to)
 {
   if (to - from >= 2) {
-    cnum pivot = from + (to - from) / 2;
+    val pkval;
     cnum i, j;
-    val pval = ref(vec, num_fast(pivot));
-    val pkval = funcall1(keyfun, pval);
+    cnum pivot = if3(to - from > 15,
+                     med_of_three(vec, lessfun, keyfun, from, to, &pkval),
+                     middle_pivot(vec, lessfun, keyfun, from, to, &pkval));
 
     swap(vec, num_fast(pivot), num_fast(to - 1));
 
-- 
cgit v1.2.3