Foro - Perl en Español

Publicado: **2014-06-19 07:33 @356**

Hola, el programa debería ser capaz de sacar el valor menor y mayor de un array y de un grupo de números. No tengo claro cómo hacer correctamente el paso del for(). Agradecería mucho una ayuda, por favor.
Gracias

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ga->( [ [ 100, 200 ], [ 100, 200 ], [ 4, 14 ], [ 8, 14 ] ] );
 
my $genes = $_[0];
 
my $x1 = $genes->[0] / 10;
my $x2 = $genes->[1] / 10;
my $x3 = $genes->[2];
my $x4 = $genes->[3];
 
@variables = ( $x1, $x2, $x3, $x4 );
 
my $mayor = 0;
my $n     = 68;
for ( $i = 0; $i <= 3; $i++ ) {
    if ( $variables[0] + $variables[1] + $variables[2] + $variables[3] == 68 ) {
        $mayor = $n;
    }
}
 
my $menor = 0;
$m = 36;
for ( $i = 0; $i <= 3; $i++ ) {
    if ( $variables[0] + $variables[1] + $variables[2] + $variables[3] == 36 ) {
        $menor = $m;
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2014-06-19 14:28 @644**

Bienvenida a los foros de Perl en Español, Persefone.

Si queremos buscar el máximo y mínimo de @variables:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $mayor = -1e20;      # -1·10^20
my $menor = +1e20;      #  1·10^20
 
for my $valor (@variables) {
 
    if ($mayor < $valor) {      # $valor es mayor que el $mayor encontrado
        $mayor = $valor;        # hasta ahora
    }
    if ($menor > $valor) {      # $valor es menor que el $menor encontrado
        $menor = $valor;        # hasta ahora
    }
}
say "Mayor: $mayor. Menor: $menor";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2014-08-31 15:35 @691**

Yo, la verdad, prefiero inicializar los valores de mayor y menor a algún valor del arreglo ya que de la forma que propone explorer si todos los elementos están por debajo del valor que se le asigna a $mayor entonces tendremos un error ya que el valor mayor será el asignado a la variable $mayor aunque no exista en el arreglo. Algo análogo ocurre cuando todos los valores están sobre el valor asignado a la variable $menor.

Mi propuesta es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $mayor = $array[0];
my $menor = $mayor;
 
foreach(@array){
        $mayor=$_ if $_>$mayor;
        $menor=$_ if $_<$menor;
}
print "Mayor: $mayor\nMenor: $menor\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Donde @array es un array unidimensional que guarda los valores numéricos donde buscar.

Lo que sí te puedo asegurar es que lo que estás haciendo en tu código no es encontrar el menor y el mayor.

Publicado: **2014-08-31 18:36 @816**

Es una muy buena idea, pero la idea era mostrar eso: la idea. Depende después de cada caso particular.

Por ejemplo, tanto mi propuesta como la tuya no tiene en cuenta los casos extremos, como por ejemplo, que el array esté vacío.

Entonces, se trata de entender lo básico, y luego adaptarlo a cada caso.

Pero tu solución me gusta. Me la anoto.

Foro - Perl en Español

Hallar mayor y menor dentro de un array

Hallar mayor y menor dentro de un array

Re: Hallar mayor y menor dentro de un array

Re: Hallar mayor y menor dentro de un array

Re: Hallar mayor y menor dentro de un array