% $Id: quicksort.erl,v 1.1 2013/11/06 02:50:30 leavens Exp leavens $ -module(quicksort). -export([quicksort/1]). -spec quicksort(Ls::list(T)) -> list(T). % quicksort sorts Ls into nondecreasing order. quicksort([]) -> []; quicksort([H|T]) -> quicksort([E || E <- T, E < H]) ++ [H|quicksort([E || E <- T, E >= H])].