# Quicksort in D

Posted:

I have finally gotten around to learning about the D Programming Language . Here is a toy quicksort, with some uninformed comments about D.

First, we need to import the std.algorithm library for the swap function, and the stdio libraray for printing stuff out.

import std.algorithm; import std.stdio;

Next, we have the partition function. This shows several things.
First, it is templatized on type, though not on comparison function.
The `(T)` in `partition(T)(...)` marks the function as a template
on `T`.

This code also shows is how D handles arrays. D is aware of array slices, so we can recurse on parts of the array, instead of passing in an array and begin / end indices. This may only be sugar, but it allows stricted error checking in non-release mode, as the D arrays are bounds checked.

The partition function uses the last element of the array as the
pivot. The partition function
walks two indices, `i` and `j`, from the beginning and the end of the
array. The condition is that `array[x]` is less than or equal to the
pivot when x is less or equal to i, and `array[x]` is greater than the
pivot when x is greater or equal to j. At the end, we swap the pivot
out to where it belongs.

ulong partition(T)(T[] array) { if(array.length < 2) { return 0; } auto pivot = array[$-1]; // We are going to increment i, and decrement j in each iteration of // the while loop before using them. So, they must start at the // location before where we really want them to be. // // This seems inconvenient, but it cleans up the possible ending // conditions of the while loop. The ulong cannot really hold a // negative number, so this -1 requires special care in the while // loop. ulong i = -1; ulong j = array.length-1; // If i == -1, it will wrap around to a really big postive number. // So, include a test for it here. The only time it should be // tested is the first iteration, while i still is -1, and the last // iteration, when i >= j. while(i < j || i == -1) { // Find the next element from the start that is larger or equal to // the pivot element. // // The pivot at the the end of the array is a sentinel, so we // needn't check for overrunning this array in direction. i += 1; while(array[i] < pivot) { i += 1; } // Find the next element from the end that is less than or equal // to the pivot. We must guard against running past the i'th // element, since we could have an array that was all greater than // the pivot. If j was 0 before this, things would be bad. That // is why the function asserts that the length be more than 1. j -= 1; while(i < j && array[j] > pivot) { j -= 1; } if(i < j && j < array.length) { // Swap the values pointed at by i and j. Now, array[x] for x // <= i is <= pivot, and array[x] for x >= j is >= pivot. swap(array[i], array[j]); } } // We know i >= j. // 1) If i was incremented to be equal to j, then // i = j = array.length - 1, and array[i] is the only element >= // pivot. // 2) Or, i was incremented to j, and array[j] >= pivot from the // previous iteration. In this case, array[j] >= pivot. // 3) Or, i was incremented so that array[i] >= pivot, then j was // decremented till j == i. So, array[i] >= pivot. /// So, array[i] is always greater than or equal to the pivot after // the while loop. And, array[i-1] is less than or equal to pivot, // if i > 0. // Swap the pivot into the right place. Everything to the left is // <= pivot. Every thing to the right is >= pivot. swap(array[i], array[$-1]); // Return the pivot location return i; }

D has some nice unittest capabilities. Code in a `unittest` section
is only compiled with the `-unittest` compile flag, and it is run
every time the code is executed. There is no way to forget to run it
then. Unless, of course, it isn't compiled with the `-unittest`
flag...

For example,

```
dmd quicksort.d -unittest
./quicksort # runs the tests
```

So, lets add some tests for the partition function. Imagine, if you wish, that the tests were written before the code.

unittest { /// Check that the partitioning is correct. auto check_partition = function(int[] array) { auto p = partition(array); foreach(i; 0 .. p) { assert(array[i] <= array[p]); } foreach(i; p + 1 .. array.length) { assert(array[i] >= array[p]); } }; auto data = [9,2,3,4,5,6,7,8,5]; check_partition(data); data = [1]; check_partition(data); data = [1, 2]; check_partition(data); data = [2, 1]; check_partition(data); data = [2, 1,1,1,1,1]; check_partition(data); data = [2, 1, 2, 1, 2, 1, 2]; check_partition(data); data[] = 10; // set all values to 10 check_partition(data); writeln("partition tests passed"); }

These lightweight tests are nice to have inline with the code. More involved tests might not be appropriate here, but tests that are so easy to write make it hard to justify skipping tests. Not that we should justify skipping tests anyways.

A nice statement in those tests was an array expression. `data[] = 10`
sets all of the entries of `data` to `10`. Arrays in D are much more
first class citizens then vectors are in C++.

After the `partition` function, the rest of quicksort is easy. We
partition the data, and recursively sort each partition. At each
step, we are removing the partition element from the array, so we know
that the total length of the subarrays is always decreasing.

T[] quicksort(T)(T[] array) { if(array.length > 1) { // Move the middle element to the end to act as the pivot. swap(array[$/2], array[$-1]); auto p = partition(array); // Index p is in position, so now recursively sort the other two // halves of the array. quicksort(array[0 .. p]); quicksort(array[p + 1 .. $]); } return array; }

Again, we can write some unittests to make sure that things seem fine.

void checkSorted(T)(T[] data) { foreach(i; 1 .. data.length) { assert(data[i] >= data[i-1]); } } unittest { auto check = function(int[] data) { quicksort(data); checkSorted(data); }; auto data = [1,2,3,4,5]; check(data); data = [5,4,3,2,1]; check(data); data = []; check(data); data = [1]; check(data); data = new int[1000]; foreach(i; 0 .. data.length) { data[i] = cast(int)(data.length - i); } check(data); }

Finally, we would like some timings to see how we are doing. In the process of writing this code, it was wrong several times. The results were correct, but a bug made the code run in quadratic time. Timing code isn't always for optimization; unexpected timing results can point to subtle bugs.

Until I understand D better, I am commenting / uncommenting code to vary the tests. (Yuck)

Testing with reversed data is kind of a double-edged sword. Reversed data is an optimistic case for the simple "pick the middle element" pivoting, because the middle element is always close to the median, reducing the depth of the recursive calls. When implementing median of three, partitioning, though, the reversed order can find bugs causing quadratic performance.

The =StopWatch= class is convenient here for some coarse timing information. These tests are one shot timing tests, without any statistical validity. Another convenience here is the literal number notation. Underscores can be used in a number to make it read easier, without affecting its value.

import std.datetime; void timeSort(T)(T[] array) { StopWatch sw; sw.start(); quicksort(array); // sort(array); sw.stop(); writeln(array.length, " ", sw.peek().msecs); // Also, make sure its right! checkSorted(array); } int[] MakeOrderedData(int N) { auto data = new int[N]; foreach(i; 0 .. data.length) { data[i] = cast(int)(i); // cast(int)(-i); } return data; } int[] MakeReversedData(int N) { auto data = MakeOrderedData(N); data.reverse(); return data; } void runTimings() { auto sizes = [1000, 10_000, 100_000, 1_000_000, 10_000_000]; foreach(s; sizes) { auto data = MakeReversedData(s); timeSort(data); } }

Finally, a main function.

void main() { runTimings(); writeln("done"); }

And here are some timing results.

size milliseconds 1000 0 10000 0 100000 6 1000000 74 10000000 837