Ordenação por Seleção
Este é um script ara ordenar um array, usando o método de selecao, escrito resumidamente para dar uma facil interpretacao.
Descrição
Este é um script ara ordenar um array, usando o método de selecao, escrito resumidamente para dar uma facil interpretacao.
#!/bin/perl
@teste= (aline,alice,maria,zumira,claudia,rafaela,marines,mara,joao,felipe);
#@teste=( 0,9,4,8,2,7,1,6,3,5);
print "@teste\n"; #imprime desordenado!!!
&ordena;
print "@teste\n"; #imprime ordenado!!!!!
sub ordena
{
$max=10; #numero máximo de elementos!!!!
for ($i=0; $i<=($max-1); $i++)
{
for ($j=0; $j<=$max; $j++)
{
if (@teste[$j] ge @teste[$i])# 'ge' para comparação de strings!!!!
# if (@teste[$j] >= @teste[$i])# '>=' para comparação de números!!!!
{
$aux=@teste[$i];
@teste[$i]=@teste[$j];
@teste[$j]=$aux;
}
}
}
}