Ordenação por Seleção
Publicado por joao felipe 17/02/2003
[ Hits: 7.140 ]
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; } } } }
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Validador de cartão de débido e crédito em Perl
Conexão com Banco de Dados Postgres
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Notebuxo positivo vaio VJFE43F11X Something has gone seriously wrong... (8)
Problema ao configurar Zabbix no ubuntu (14)
Como compilar os drivers da impressora Canon para 64 bit? (3)
Como faço pra um script ser executado apenas abrindo um terminal e dan... (9)