Erlang Quick Sort

Erlang Quick Sort Tutorial para ordenar lista de forma crescente ou decrescente utilizando Erlang.

1. Problema: ordenar lista ordenar(lista) => lista ordenada
ordenar ([4, 3, 9, 3, 7, 4, 2]) => [2, 3, 3, 4, 4, 7, 9]

2. Rodar exemplos

ordenar ([4, 3, 9, 3, 7, 4, 2]).
ordenar([1,2,a,3,4,b,5,6].
ordenar([]).
outros exemplos

3. Idéia da solução: usar quick sort ordenar(lista) => lista ordenada

pegar primeiro elemento da lista: 4
criar 2 listas e ordená-las:

elementos menores que o primeiro:
ordenar [ 3, 3, 2] => [2, 3, 3]
restante dos elementos:
ordenar [9, 7, 4] => [4, 7, 9]

Concatenar listas:
[2, 3, 3] ++ [4] ++ [4, 7, 9] => [2, 3, 3, 4, 4, 7, 9]

4. Função para ordenar

ordenar([Primeiro|Resto]) ->

ordenar([X|| X <- Resto, X < Primeiro]) ++
[Primeiro] ++
ordenar([X|| X <- Resto, X >= Primeiro]);

ordenar([]) -> [].

5. Componentes usados

lista
lista com Resto
list comprehension

6. Componentes usados - Lista ... ordenar([4, 3, 9, 3, 7, 4, 2]) -> ..

7. Componentes usados - Lista com resto ... ordenar([Primeiro|Resto]) -> ...
... ordenar([4 | 3, 9, 3, 7, 4, 2]) -> ...
Primeiro = 4
Resto = [3, 9, 3, 7, 4, 2]

8. Componentes usados - List Comprehension [X|| X <- Resto, X < Primeiro]
A lista de X tal que X pertence a Resto e X é menor que Primeiro.

[X|| X <- [3, 9, 3, 7, 4, 2], X < 4]
The list of X such that X is taken from the list [3,9,3,7,4,2]and X is less than 4.

9. Função completa para ordenar

"-module(quicksort).": nome do arquivo = quicksort.erl
"-export([ordenar/1]).":
lista de "função/quantidade de parâmetros"
funções visíveis externamente

-module(quicksort).
-export([ordenar/1]).

ordenar([Primeiro|Resto]) ->

ordenar([X|| X <- Resto, X < Primeiro]) ++
[Primeiro] ++
ordenar([X|| X <- Resto, X >= Primeiro]);

ordenar([]) -> [].

10. Fazer função ordenar lista de forma crescente ou decrescente
ordenar(tipo da ordenação, lista) => lista ordenada
tipo da ordenação: