1 files changed, 12 insertions, 0 deletions
diff --git a/src/base/sort/double.c b/src/base/sort/double.c
new file mode 100644
index 0000000..c3feac2
--- /dev/null
+++ b/src/base/sort/double.c
@@ -0,0 +1,12 @@
+#include "internal.h"
+
+void
+sort·double(uintptr sz, double arr[])
+{
+    double tmp;
+#define LESS(i, j) (arr[i] < arr[j])
+#define SWAP(i, j) (tmp = arr[i], arr[i] = arr[j], arr[j] = tmp)
+    QSORT(sz, LESS, SWAP);
+#undef SWAP
+#undef LESS
+}