🧩 [refactor]: Better mergeSort impl.

explorable-viz · Sep 25, 2023 · bc4e250 · bc4e250
1 parent a1de82e
commit bc4e250
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/fluid/example/mergeSort.fld b/fluid/example/mergeSort.fld
@@ -13,12 +13,10 @@ let split [] = ([], []);
        };
 
     mergesort xs =
-       match xs as {
-          [] -> xs;
-          [x] -> xs;
-          x : y : _ ->
-             let (ys, zs) = split xs in
-             merge (mergesort ys) (mergesort zs)
-       }
+       if length xs < 2
+       then xs
+       else
+          let (ys, zs) = split xs in
+          merge (mergesort ys) (mergesort zs)
 in
 mergesort [3, 1, 2]