Ordenação por Seleção
Publicado por joao felipe 17/02/2003
[ Hits: 7.422 ]
Homepage: www.motokando.com
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; } } } }
GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Validador de cartão de débido e crédito em Perl
Conexão com Banco de Dados Postgres
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)