Ordenação por Seleção
Publicado por joao felipe 17/02/2003
[ Hits: 7.445 ]
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
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Conexão com Banco de Dados Postgres
Orientação a Objetos - Criando e usando uma classe em Perl
Nenhum coment�rio foi encontrado.
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Autologin: praticidade ou não?
Instalação do Onion OS no Miyoo Mini e Miyoo Mini Plus
Proteja seu Linux Mint com o Timeshift: Restaure o sistema mesmo que ele não inicie!
Google Crhome não abre desde que eu atualizei pelo "program... (2)
como instalar o amdgpu no linux manjaro no linux, pelo o repo e comand... (4)
paginação dos favoritos não funciona no vivaolinux[BU... (8)
Alguém pode me recomendar um editor de textos? [RESOLVIDO] (11)