Busca Binária
Publicado por joao felipe 18/02/2003
[ Hits: 7.524 ]
Homepage: www.motokando.com
Este script faz uma busca binária em um vetor (array), está simples e fácil de ser entendido, lembramos que o vetor deve estar ordenado para que seja possível fazer uma busca binária, para isso vc pode usar meu script de "ordenacao por selecao", qualquer bug encontrado por favor me avise no felipejfs@bol.com.br pois uso este script aqui em um site. Espero que lhe seja util este script. falou.
#!/bin/perl #para uma busca binaria é necessario que o vetor esteja ordenado!!!! @vetor=(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20); $x=3; #$x será o elemento à procurar. $inicio=0; $fim=@vetor; # $fim recebe o tamanho de @vetor. $meio=int(($inicio+$fim)/2); print "Procurando $x em ". "@vetor". "\n"; while (($x != @vetor[$meio]) && ($inicio!=$fim) && ($inicio<$fim)) { if ($x > @vetor[$meio]) {$inicio=$meio+1} else {$fim=$meio-1} $meio=int(($inicio+$fim)/2); } if ($x == @vetor[$meio]){print "$x encontrado em @". "vetor[". $meio. "]\n";} else {print "$x nao encontrado!! \n";}
Validador de cartão de débido e crédito em Perl
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Conexão com Banco de Dados Postgres
Agora temos uma assistente virtual no fórum!!! (247)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
Microfone do meu headset não é recinhecido. Meu notebook é um Acer Asp... (7)
Como configuro meu controle de xbox no mupen64? (7)
redirecionando saida de comando touch para o AWK[AJUDA] (4)