From 261889c5b56b6610c370e2bd6ae78c0f81e22688 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 14 Aug 2019 23:33:06 +0100 Subject: Slightly optimise list:sort --- gen/src/gleam@list.erl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'gen/src') diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 411a6c8..7781dcc 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -295,8 +295,7 @@ merge_sort(A, B, Compare) -> end end. -sort(List, Compare) -> - ListLength = length(List), +do_sort(List, Compare, ListLength) -> case ListLength < 2 of true -> List; @@ -305,9 +304,16 @@ sort(List, Compare) -> SplitLength = ListLength div 2, AList = take(List, SplitLength), BList = drop(List, SplitLength), - merge_sort(sort(AList, Compare), sort(BList, Compare), Compare) + merge_sort( + do_sort(AList, Compare, SplitLength), + do_sort(BList, Compare, ListLength - SplitLength), + Compare + ) end. +sort(List, Compare) -> + do_sort(List, Compare, length(List)). + range(Start, Stop) -> case gleam@int:compare(Start, Stop) of eq -> -- cgit v1.2.3