From 261889c5b56b6610c370e2bd6ae78c0f81e22688 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Wed, 14 Aug 2019 23:33:06 +0100
Subject: Slightly optimise list:sort

---
 src/gleam/list.gleam | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam
index ab8b600..24437c6 100644
--- a/src/gleam/list.gleam
+++ b/src/gleam/list.gleam
@@ -244,18 +244,25 @@ fn merge_sort(a, b, compare) {
   }
 }
 
-pub fn sort(list, compare) {
-  let list_length = length(list)
+fn do_sort(list, compare, list_length) {
   case list_length < 2 {
   | True -> list
   | False ->
     let split_length = list_length / 2
     let a_list = take(list, split_length)
     let b_list = drop(list, split_length)
-    merge_sort(sort(a_list, compare), sort(b_list, compare), compare)
+    merge_sort(
+      do_sort(a_list, compare, split_length),
+      do_sort(b_list, compare, list_length - split_length),
+      compare,
+    )
   }
 }
 
+pub fn sort(list, compare) {
+  do_sort(list, compare, length(list))
+}
+
 pub fn range(start, stop) {
   case int:compare(start, stop) {
   | order:Eq -> []
-- 
cgit v1.2.3