Ordenação por Seleção

Publicado por joao felipe 17/02/2003

[ Hits: 7.150 ]

Homepage: www.motokando.com

Download ordena_selecao.pl




Este é um script ara ordenar um array, usando o método de selecao, escrito resumidamente para dar uma facil interpretacao.

  



Esconder código-fonte

#!/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;
      }
    }
  }
}

Scripts recomendados

Gerador de CPF válido em Perl

GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl

Validador de cartão de débido e crédito em Perl

Busca Binária

Conexão com Banco de Dados Postgres


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts