Langage fonctionnel
Tri rapide

Les "compréhensions" clarifient le code
-module (qsort).
-export ([sort/1]).


sort ([]) -> [];

sort ([Pivot | Others]) ->
    sort ([X || X <- Others, X < Pivot]) ++
        [Pivot] ++
        sort ([X || X <- Others, X >= Pivot]).

qsort:sort ([1,3,8,7,5,9,2,6,4]).

Eshell V5.0.2.11  (abort with ^G)
1> [1,2,3,4,5,6,7,8,9]
2>