Fix stability in core library List sorting functions

+ Add an automated test case for a scenario where we found `List.sortBy` violating the stability constraint.
+ Fix the list sorting function on the productive side to maintain stability.

implement/pine/ElmTime/compile-elm-program/src/ElmInteractiveCoreModules.elm

@@ -983,19 +983,12 @@ sortWith compareFunc list =
 
 sortWithSplit : List a -> ( List a, List a )
 sortWithSplit list =
-    case list of
-        [] ->
-            ( [], [] )
-
-        [ x ] ->
-            ( [ x ], [] )
-
-        x :: y :: rest ->
-            let
-                ( left, right ) =
-                    sortWithSplit rest
-            in
-            (Pine_kernel.concat [ [ x ], left], Pine_kernel.concat [ [ y ], right])
+    let
+        middleIndex = (Pine_kernel.length list) // 2
+    in
+    ( Pine_kernel.take [ middleIndex, list ]
+    , Pine_kernel.skip [ middleIndex, list ]
+    )
 
 
 sortWithMerge : List a -> List a -> (a -> a -> Order) -> List a
@@ -1009,11 +1002,11 @@ sortWithMerge left right compareFunc =
 
         ( x :: xs, y :: ys ) ->
             case compareFunc x y of
-                LT ->
-                    Pine_kernel.concat [ [ x ], sortWithMerge xs right compareFunc ]
+                GT ->
+                    Pine_kernel.concat [ [ y ], sortWithMerge left ys compareFunc ]
 
                 _ ->
-                    Pine_kernel.concat [ [ y ], sortWithMerge left ys compareFunc ]
+                    Pine_kernel.concat [ [ x ], sortWithMerge xs right compareFunc ]
 
 """
     , """

implement/test-and-train/elm-interactive-scenarios-core/elm-core-list/steps/634/expected-value.txt

@@ -0,0 +1 @@
+[(17,[]),(1,["c"]),(13,["d"]),(11,["e"]),(0,["a","b"])]

implement/test-and-train/elm-interactive-scenarios-core/elm-core-list/steps/634/submission.txt

@@ -0,0 +1,2 @@
+List.sortBy (\( _, dependencies ) -> List.length dependencies)
+    [ (0, ["a","b"]), (1, ["c"]), (13, ["d"]), (17, []), (11, ["e"]) ]

implement/test-and-train/elm-interactive-scenarios-core/elm-core-list/steps/635/expected-value.txt

@@ -0,0 +1 @@
+[(23,[]),(17,[]),(1,["c"]),(13,["d"]),(11,["e"]),(0,["a","b"])]

implement/test-and-train/elm-interactive-scenarios-core/elm-core-list/steps/635/submission.txt

@@ -0,0 +1,2 @@
+List.sortBy (\( _, dependencies ) -> List.length dependencies)
+    [ (23, []), (0, ["a","b"]), (1, ["c"]), (13, ["d"]), (17, []), (11, ["e"]) ]