Búsqueda Binaria
1234567891011121314151617181920212223242526272829303132333435363738394041
use strict;
my @array;
my $low = 0;
my $mid;
my $found_key = 0;
my $num;
my $key;
my $index;
@array = ( 5, 10, 30, 4, -3, 18, 101, 2001, 46, 23 );
@array = sort { $a <=> $b } @array;
my $high = $#array;
print "Por favor introduzca la llave para buscar: ";
chomp( $key = <STDIN> );
while( ( $low <= $high ) && !$found_key ) {
$mid = int(( $low + $high ) / 2);
if( $key == $array[$mid] ) {
$found_key = 1;
$index = int( $mid );
}
elsif( $key < $array[$mid] ) {
$high = $mid - 1;
}
else {
$low = $mid + 1;
}
}
if( $found_key ) {
print "$key está en la posición: $index\n";
}
else {
print "Lo siento, no pude encontrar: $key";
}
Perl
INFO