#!/usr/bin/perl
use strict;
use warnings;

  sub busca_binaria_rec{
    my ($conjunto,$elemento,$primero,$cuantos)=@_;
    my $izquierda=$primero;
    my $derecha=$cuantos;
    my $medio=($izquierda+$derecha)<<2;
    if($izquierda>$derecha){
        return (-1);
    }
    else{
      if((@{$conjunto}[$medio])==$elemento){
        return($medio);
        }
      if(@{$conjunto}[$medio]<$elemento){
        $medio+=1;
        busca_binaria_rec((\@{$conjunto}),$elemento,$medio,$derecha);
      }else{
        $medio-=1;
        busca_binaria_rec((\@{$conjunto}),$elemento,$izquierda,$medio);
        }
    }
}
{

    my @conjunto; #creamos las variables para el elemento a buscar así como para el conjunto en el que se buscará y su tamaño
    print "Introduce el elemento a buscar(en el rango de -20,000 hasta 20,000):";#se le pide al usuario que introduzca el elemento a buscar
    my $buscado = <STDIN>;
    print "Introduce cuantos elementos contiene el conjunto(siendo 10000 el numero maximo):";#se le dice al usuario que introduzca el tamaño del conjunto y las restricciones
    my $cuantos=<STDIN>;#el usuario introduce el tamaño del conjunto en la variable cuantos
    #llena el conjunto
    print "Ingresa los numeros del conjunto seguidos por un enter :)";
    for(my $i=0;$i<$cuantos;$i++)
    {
        $conjunto[$i] = <STDIN>;
    }
    #ordena
    my $temp=0;
    for(my $i=0;$i<$cuantos;$i++){
        for(my $j=0;$j<$cuantos;$j++){
            if($conjunto[$i]<$conjunto[$j]){
                $temp=$conjunto[$i];
                $conjunto[$i]=$conjunto[$j];
                $conjunto[$j]=$temp;
            }
        }
    }
    
    if((busca_binaria_rec(\@conjunto,$buscado,0,$cuantos-1))!=-1){#si el elemento se encuentra en la lista, imprime su posicion
        my $posicion= &busca_binaria_rec(\@conjunto,$buscado,0,($cuantos-1));
        print "El elemento se encuentra en la posicion: $posicion";
    }else{# si el elemento no esta, se le indica al usuario su ausencia
        print "El elemento no esta en el conjunto";
 }
}