Busca Binária
Publicado por joao felipe 18/02/2003
[ Hits: 7.534 ]
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";}
GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
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
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
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
Como instalar o navegador TOR no seu Linux
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin