Added quicksort implementation using list comprehensions

silviud · May 28, 2011 · e0913ea · e0913ea
1 parent 2d61d11
commit e0913ea
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/erl/sorting/quicksort.erl b/erl/sorting/quicksort.erl
@@ -0,0 +1,6 @@
+-module(quicksort).
+-export([quicksort_lc/1]).
+
+quicksort_lc([]) -> [];
+quicksort_lc([Head|Tail]) ->
+	quicksort_lc([X||X <- Tail, X < Head]) ++ [Head] ++ quicksort_lc([X||X <- Tail, X >= Head]).