Create Quicksort

iammuhit · Dec 26, 2020 · b51696c · b51696c
1 parent b98d5fe
commit b51696c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/quicksort.hs b/quicksort.hs
@@ -0,0 +1,6 @@
+quicksort :: (Ord a) => [a] -> [a]
+quicksort [] = []
+quicksort (x:xs) =
+    let smallerSorted = quicksort [a | a <- xs, a <= x]  
+        biggerSorted = quicksort [a | a <- xs, a > x]  
+    in  smallerSorted ++ [x] ++ biggerSorted