Add array:sorted()

2 files changed, 8 insertions, 0 deletions

diff --git a/builtins/array.c b/builtins/array.c
index 84b65ae7..4eea25fb 100644
--- a/builtins/array.c
+++ b/builtins/array.c
@@ -151,6 +151,13 @@ public void Array$sort(array_t *arr, closure_t comparison, const TypeInfo *type)
     qsort_r(arr->data, arr->length, item_size, comparison.fn, comparison.userdata);
 }
 
+public array_t Array$sorted(array_t arr, closure_t comparison, const TypeInfo *type)
+{
+    arr.data_refcount = 3;
+    Array$sort(&arr, comparison, type);
+    return arr;
+}
+
 public void Array$shuffle(array_t *arr, const TypeInfo *type)
 {
     int64_t item_size = get_item_size(type);
diff --git a/builtins/array.h b/builtins/array.h
index 7b432194..c6722e6d 100644
--- a/builtins/array.h
+++ b/builtins/array.h
@@ -57,6 +57,7 @@ void Array$insert(array_t *arr, const void *item, int64_t index, const TypeInfo
 void Array$insert_all(array_t *arr, array_t to_insert, int64_t index, const TypeInfo *type);
 void Array$remove(array_t *arr, int64_t index, int64_t count, const TypeInfo *type);
 void Array$sort(array_t *arr, closure_t comparison, const TypeInfo *type);
+array_t Array$sorted(array_t arr, closure_t comparison, const TypeInfo *type);
 void Array$shuffle(array_t *arr, const TypeInfo *type);
 void *Array$random(array_t arr);
 void Array$clear(array_t *array);