We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 2ccfb15 + 036e5a0 commit 042ded2Copy full SHA for 042ded2
sorting/quick_sort/quick_sort.fsx
@@ -0,0 +1,6 @@
1
+let rec quicksort list =
2
+ match list with
3
+ | [] -> []
4
+ | x::xs ->
5
+ let smaller, larger = List.partition (fun y -> y < x) xs
6
+ in List.concat [quicksort smaller; [x]; quicksort larger]
0 commit comments