diff options
Diffstat (limited to 'gen/src/gleam@list.erl')
| -rw-r--r-- | gen/src/gleam@list.erl | 12 |
1 files changed, 9 insertions, 3 deletions
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 -> |