diff --git a/quickSort.hs b/quickSort.hs
new file mode 100644
index 0000000..e5ad701
--- /dev/null
+++ b/quickSort.hs
@@ -0,0 +1,3 @@
+quicksort :: (Ord a) => [a] -> [a]
+quicksort [] = []
+quicksort (x:xs) = quicksort [y | y <- xs, y <= x] ++ [x] ++ quicksort [y | y <- xs, y > x]