Issue #252 adding Sort module in Carp using Heap.Heapsort

core/Core.carp

@@ -19,3 +19,4 @@
 (load "Random.carp")
 (load "Map.carp")
 (load "Heap.carp")
+(load "Sort.carp")

core/Sort.carp

@@ -0,0 +1,12 @@
+(use Heap)
+
+(defmodule Sort
+    (doc sort! "Perform an in-place heapsort of a given array.")
+    (defn sort! [arr]
+        (HeapSort.sort! arr))
+
+    (doc sort "Perform a heapsort in a new copy of given array.")
+    (defn sort [arr]
+        (HeapSort.sort arr))
+)
+

test/sort.carp

@@ -0,0 +1,25 @@
+(use Sort)
+
+(load "Test.carp")
+(use Test)
+
+(defn main []
+  (with-test test
+    (let-do [arr [1 3 4 2 6 1]
+             exp [1 1 2 3 4 6]]
+            (Sort.sort! &arr)
+            (assert-equal test
+                          &exp
+                          &arr
+                          "Sort.sort! works"))
+
+    (let-do [arr [1 3 4 2 6 1]
+             exp [1 1 2 3 4 6]
+             res (Sort.sort &arr)]
+            (assert-equal test
+                          &exp
+                          &res
+                          "Sort.sort works"))
+
+    (print-test-results test)))
+