Erlang Quick Sort
Erlang Quick Sort
apoie, apoie.org, componente, Erlang, linguagem, lista, função, programação, desenvolvimento
Tutorial para ordenar lista de forma crescente ou decrescente utilizando Erlang.
ErlangQuickSort.xml
Problema: ordenar lista
ordenar(lista) => lista ordenada<br>
ordenar ([4, 3, 9, 3, 7, 4, 2]) => [2, 3, 3, 4, 4, 7, 9]
Rodar exemplos
<ul>
<li><span class="exemplo">ordenar
([4, 3, 9, 3, 7, 4, 2]).</span></li>
<li><span class="exemplo">ordenar([1,2,a,3,4,b,5,6].</span></li>
<li><span class="exemplo">ordenar([]).</span></li>
<li>outros exemplos<br>
</li>
</ul>
Idéia da solução:
usar quick sort
ordenar(lista)
=> lista ordenada
<ol>
<li>pegar primeiro elemento da lista: 4</li>
<li>criar 2 listas e ordená-las:</li>
<ul>
<li>elementos menores que o primeiro: <br>
ordenar [ 3, 3, 2] => [2, 3, 3]</li>
<li>restante dos elementos: <br>
ordenar [9, 7, 4] => [4, 7, 9]</li>
</ul>
<li>Concatenar listas:<br>
[2, 3, 3] ++ [4] ++ [4, 7, 9] => [2, 3, 3, 4, 4, 7, 9]<br>
</li>
</ol>
Função para ordenar
ordenar([Primeiro|Resto])
-><br>
<div style="margin-left: 40px;">ordenar([X|| X
<- Resto, X
< Primeiro]) ++ <br>
[Primeiro] ++<br>
ordenar([X||
X <-
Resto, X >= Primeiro]); </div>
ordenar([]) ->
[].
<br>
Componentes usados
<ul>
<li>lista</li>
<li>lista com Resto</li>
<li style="font-weight: bold;"><a href="ErlangListComprehension.html" target="_blank">list
comprehension</a></li>
</ul>
Componentes usados -
Lista
... <span class="exemplo">ordenar([4, 3, 9,
3, 7,
4, 2]) -></span> ..<br>
<img style="width: 310px; height: 94px;" alt="ErlangListaSimples.png" title="Erlang Lista Simples" src="ErlangListaSimples.png">
Componentes usados -
Lista com resto
...
<span class="exemplo">ordenar([Primeiro|Resto]) -></span> ...<br>
... <span class="exemplo">ordenar([4 | 3, 9, 3, 7, 4, 2]) -></span> ...<br>
Primeiro = 4<br>
Resto = [3,
9, 3, 7, 4, 2]<br>
<img alt="ErlangListaCompleta.png" title="Erlang Lista Completa" src="ErlangListaCompleta.png">
Componentes usados - List Comprehension <a href="http://www.erlang.org/doc/programming_examples/list_comprehensions.html" target="_blank"><img src="ErlangFavicon.png" title="erlang.org" /;></a>
<span class="exemplo">[X|| X <- Resto, X
< Primeiro]</span><br>
A lista de X tal que X pertence a Resto e X é menor que Primeiro.<br>
<br>
<span class="exemplo">[X|| X <- [3, 9, 3, 7, 4, 2], X
< 4]</span><br>
<em>The list of X such that X is taken from the
list <code>[3,9,3,7,4,2]</code>and
X is less than 4.<br>
</em><img alt="ErlangListComprehension.png" title="Erlang List Comprehension" src="ErlangListComprehension.png">
Função completa para
ordenar
<ol>
<li>"-module(quicksort).": nome do arquivo
= quicksort.erl</li>
<li>"-export([ordenar/1]).": <br>
lista de "função/quantidade de parâmetros"<br>
funções visíveis externamente<br>
</li>
</ol>
-module(quicksort).<br>
-export([ordenar/1]).<br>
<br>
ordenar([Primeiro|Resto]) -> <br>
<div style="margin-left: 40px;">
ordenar([X|| X <- Resto, X
< Primeiro]) ++ <br>
[Primeiro] ++ <br>
ordenar([X||
X <-
Resto, X >= Primeiro]);
</div>
ordenar([]) -> [].
Fazer função
ordenar lista de
forma crescente ou decrescente<br>
ordenar(tipo da ordenação, lista) => lista ordenada<br>
tipo da ordenação:
<ul>
<li>c = crescente</li>
<li>d = decrescente<br>
</li>
</ul>
Avaliar solução
-module(quicksort2).<br>
-export([ordenar/1, ordenar/2]).<br>
<br>
ordenar(Lista) -> ordenar(c, Lista).<br>
<br>
ordenar(c,[Primeiro|Resto]) -> <br>
<div style="margin-left: 40px;">ordenar(c,[X||X <-
Resto,
X <
Primeiro]) ++ <br>
[Primeiro] ++ <br>
ordenar(c,[X||X <- Resto, X
>=
Primeiro]);
</div>
ordenar(d,[Primeiro|Resto]) -> <br>
<div style="margin-left: 40px;">ordenar(d,[X||X <- Resto,
X >=
Primeiro]) ++ <br>
[Primeiro] ++ <br>
ordenar(d,[X||X <- Resto, X <
Primeiro]); </div>
ordenar(_,[]) -> [].
Retrospectiva :) :(