diff options
| author | Julian Schurhammer <julian.schurhammer@gmail.com> | 2022-10-20 21:36:59 +1300 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2022-10-20 11:18:29 +0100 |
| commit | 650e36e6e2a0ee4fd94b236d8b59d331247d90e0 (patch) | |
| tree | ab53a49711b509a31ebc53a9854357b0cff7a8c7 /src | |
| parent | 20875f2657f6f51c2e0567bdba1f8c58532cbb95 (diff) | |
| download | gleam_stdlib-650e36e6e2a0ee4fd94b236d8b59d331247d90e0.tar.gz gleam_stdlib-650e36e6e2a0ee4fd94b236d8b59d331247d90e0.zip | |
make list.sort a 'stable' sort
Diffstat (limited to 'src')
| -rw-r--r-- | src/gleam/list.gleam | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam index 37e1857..8fca289 100644 --- a/src/gleam/list.gleam +++ b/src/gleam/list.gleam @@ -994,8 +994,8 @@ fn merge_up(na, nb, a, b, acc, compare) { 0, _, _, [bx, ..br] -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) _, _, [ax, ..ar], [bx, ..br] -> case compare(ax, bx) { - order.Lt -> merge_up(na - 1, nb, ar, b, [ax, ..acc], compare) - _ -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) + order.Gt -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) + _ -> merge_up(na - 1, nb, ar, b, [ax, ..acc], compare) } } } |