Foro - Perl en Español

por **xwalero** » 2012-02-04 01:19 @096

Hola, no sé si esto va acá xD... Lo que pasa es que tengo unos ejercicios con matrices. Pero me quedé estancado en la letra C). Las instrucciones son:

hacer una matriz y entregar matriz Traspuesta, los mayores de cada fila y ordenar la matriz usando como key el primer elemento de cada fila

Tengo este código para la A y B hasta ahora:
http://pastebin.com/r10teh0x

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
print "Filas:\n";
my $filas = <stdin>;
print "Columnas:\n";
my $columnas = <stdin>;
 
if($filas>=1 && $columnas>=1)
{
        ### si hay más filas que columnas (o es matriz cuadrada)
        if($filas>=$columnas)
        {
                for($i=1; $i<=$filas; $i++)
                {
                        for($j=1; $j<=$columnas; $j++)
                        {
                                print "Datos para matriz [$i][$j]: ";
                                $arr[$i][$j] = <stdin>;
                        }
                }
        }
        ### si hay más columnas que filas
        else
        {
                for($j=1; $j<=$columnas; $j++)
                {
                        for($i=1; $i<=$filas; $i++)
                        {
                                print "Datos para matriz [$i][$j]: ";
                                $arr[$i][$j] = <stdin>;
                        }
                }
        }
        
        #A) ################################
        ## más filas que columnas (o es matriz cuadrada)
        print "\nMatriz traspuesta:\n";
        if($filas>=$columnas)
        {
                for($i=1; $i<=$columnas; $i++)
                {
                        for($j=1; $j<=$filas; $j++)
                        {
                                print "Mat[$i][$j] = $arr[$j][$i]";
                        }
                }
        }
        ## más columnas que filas
        else
        {
                for($j=1; $j<=$filas; $j++)
                {
                        for($i=1; $i<=$columnas; $i++)
                        {
                                print "Mat[$j][$i] = $arr[$j][$i]";
                        }
                }
        }
        
        #B) ################################
        print "\nElementos mayores de cada fila:\n";
        $i = 1;
        $j = 1;
        while($i<=$filas)
        {
                ## mayor[1] sería igual a $arr[1][1]
                ## esto crea un nuevo array que tiene
                ## los mayores valores de $arr
                $mayor[$i] = $arr[$i][$j];
                for($j=1; $j<=$columnas; $j++)
                {       
                        if($mayor[$i]<=$arr[$i][$j])
                        {
                                $mayor[$i] = $arr[$i][$j];
                        }
                }
                $i++;
        }
        ## como i<=filas, entonces i tiene un elemento de sobra, porque
        ## al terminar la condición, igual aumenta.
        ## hay que quitárselo:
        $i--;
        for($h=1; $h<=$i; $h++)
        {
                print "Fila $h: $mayor[$h]";
        }
        
        #C) ################################
        ## aquí no entiendo: guardé los mayores de cada fila
        ## pero si los quiere ordenar según eso, sería
        ## lo mismo que decir $arr[$i][$j] poh. 
        print "\n";
        print "Primer elemento de cada fila:\n";
        for($i=1; $i<=$filas; $i++)
        {
                $r = $arr[$i][1];
                print "Fila n$i: $r";
                ## creé un array orden y le metí los valores
                ## mayores de cada fila
                @orden = (@orden,$r);
        }
        @array = sort(@orden);
        @array = sort{$a<=>$b}(@array);
        print "\nDe mayor a menor:\n";
        print @array;
        
} ## fin si los valores son >= 1
else
{
        print "Introduzca un número de filas y columnas mayor que 0";
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

La parte de:

Código: Seleccionar todo: #C) ################################ ## aquí no entiendo, guardé los mayores de cada fila ## pero si los quiere ordenar según eso, sería ## lo mismo que decir $arr[$i][$j] poh.

no la tomen en cuenta: era un intento por hacer esa parte del ejercicio xDDDD.

Lo que pide es que si, por ejemplo tengo esta matriz:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

| 6 | 5

| 8 | 2

| 7 | 4Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La ordené según sus primeros elementos, y quedaría así:
1 | 8 | 2
3 | 6 | 5
9 | 7 | 4
porque 1 < 3 < 9
(o al revés, de mayor a menor... eso da igual)

¡Gracias!

Bienvenido a los foros de Perl en español, xwalero.

Creo que no te has dado cuenta, pero las líneas 12 a 19 hacen lo mismo que las líneas 24 a 31. Y que las líneas 39 a 45 hacen lo mismo que las líneas 50 a 56.

Luego, en el cálculo del mayor número por cada fila, el valor de $i será siempre igual al número de filas (debería ser igual a, o tendríamos un problema, por lo que pones del 78 al 82, sobra: simplemente cambia $i por $filas en el for de la 82.

Luego, en la ordenación, vas bien, haciendo un sort(), pero no de lo que quieres ordenar. Fíjate que pones sort(@orden), que hace una ordenación alfanumérica de los elementos de @orden, seguido por otro sort, esta vez numérico, de los elementos ordenados de @orden. Además, la ordenación es de menor a mayor ($a está antes que $b, en la comparación), por lo que no concuerda con el print de la línea 103.

El problema principal es que en las líneas 93 a 100 estás desligando los elementos de la primera columna, del resto de elementos. Eso quiere decir que luego, en el sort(), solo estamos ordenando esos valores... entonces... ¿cómo sabemos qué elemento ordenado corresponde a qué fila? Hay que recordar que tenemos que ordenar las filas enteras, no solo los elementos de la primera columna.

¡Inténtalo!

por **xwalero** » 2012-02-04 14:03 @627

Gracias por la bienvenida

¡Ooooh! Me acabo de dar cuenta de que puse el código antiguo xD!
En el que corregí, el problema de las líneas que hacen lo mismo y el print() (mayor a menor, en vez de menor a mayor) están corregidos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
print "Filas:\n";
my $filas = <stdin>;
print "Columnas:\n";
my $columnas = <stdin>;
 
if ( $filas >= 1 && $columnas >= 1 ) {
    for ( $i = 1; $i <= $filas; $i++ ) {
        for ( $j = 1; $j <= $columnas; $j++ ) {
            print "Datos para matriz [$i][$j]: ";
            $arr[$i][$j] = <stdin>;
        }
    }
 
    #A) ################################
    print "\nMatriz traspuesta:\n";
    for ( $i = 1; $i <= $columnas; $i++ ) {
        for ( $j = 1; $j <= $filas; $j++ ) {
            print "Mat[$i][$j] = $arr[$j][$i]";
        }
    }
 
    #B) ################################
    print "\nElementos mayores de cada fila:\n";
    $i = 1;
    $j = 1;
    while ( $i <= $filas ) {
        $mayor[$i] = $arr[$i][$j];
        for ( $j = 1; $j <= $columnas; $j++ ) {
            if ( $mayor[$i] <= $arr[$i][$j] ) {
                $mayor[$i] = $arr[$i][$j];
            }
        }
        $i++;
    }
    for ( $i = 1; $i <= $filas; $i++ ) {
        print "Fila $i: $mayor[$i]";
    }
 
    #C) ################################
    print "\n";
    print "Primer elemento de cada fila:\n";
    $i = 1;
    while ( $i <= $filas ) {
        for ( $j = 1; $j <= $columnas; $j++ ) {
            $r = $arr[$i][$j];
            @orden = ( @orden, $r );
        }
        $i++;
    }
    print @orden;
 
    for ( $h = 1; $h <= $columnas; $h++ ) {
 
    }
 
}                                      ## fin si los valores son >= 1
else {
    print "Introduzca un numero de filas y columnas mayor que 0";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora, sé que está mal mi método, pero decidí no quitarlo para que vieras cómo lo pensé en un principio. Luego quise hacerlo de otra manera... la idea era hacer un for() anidado para ir recorriendo el mayor elemento (algo parecido al código desde la 30 hasta la 43) pero tuve varios errores en el proceso xD. El problema es que tampoco conozco Perl muy bien, he aprendido más o menos su sintaxis en algo como 3 o 4 días xd, entonces no sé si hay alguna función que haga lo que yo quiero.

Al hacer un sort al array, eso ordenaría la matriz completa, ¿o no? Entonces dejaría los elementos de menor a mayor, pero sin importar a qué fila pertenecen.

Mi problema es que creo poder ordenar las columnas de cada fila de mayor a menor, pero no sé cómo ordenar las filas para moverlas hacia arriba o abajo y que queden sus columnas intactas.

¡Gracias de nuevo!

por **explorer** » 2012-02-04 15:26 @684

Te aconsejo que cambies el '&&' de la línea 7 por un 'and'.

Luego, para el tema del ordenamiento. Hay que usar sort, desde luego, pero ¿de qué? "del primer elemento de cada fila", Bien. ¿cuál es el primer elemento de cada fila? $arr[$i][0]. Bueno, pues justamente eso es lo que debes darle a sort() para que ordene toda la matriz...

¿Lo pillas? :wink:

por **xwalero** » 2012-02-04 15:46 @699

Si le hago sort() a $arr[$i][1] (es el primer elemento, no parte de 0 en este caso) dentro de un for(), estaré ordenando el número respecto a él mismo en cada ciclo, entonces no hará nada realmente :S. Por ejemplo, eso:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "\n";
print "Matriz ordenada por filas:\n";
for($i=1; $i<=$filas; $i++)
{
        sort($arr[$i][1]);
        sort{$a<=>$b}($arr[$i][1]);
        print $arr[$i][1];
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

muestra cada primer número de la fila, pero no en orden.

Sigo sin entender cómo puedo hacer para que muestre la fila con sus columnas completas y estén ordenadas según su primer número xD. Perdón lo bruto ¡ja,ja,ja!

Al ordenar un elemento dentro de un bucle, estaría siempre ordenando el elemento en base a sí mismo... por eso yo quería introducir todos los datos dentro de otro array y ordenar ese array. Lo que no sé, es dividir ese array en el número de columnas por fila... es decir, si tengo 3 filas y 2 columnas, dividir el array con todos los datos ingresados en su orden original, en 3 arrays que contengan 2 valores cada uno (por el número de columnas). Así podría después comparar los primeros valores de cada uno de esos arrays y mostrarlos.

¿Suena muy a "ciencia ficción"? xD

por **explorer** » 2012-02-04 16:15 @719

Pues no, no lo has pillado.

Lo resuelves así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@array_ordenado=map{$arr[$_]}sort{$arr[$a][1]<=>$arr[$b][1]} 0 ..$#arr;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

"Ordenación numérica ascendente de los elementos de @arr, según el valor del elemento 1 referenciado por esos elementos".

por **xwalero** » 2012-02-04 16:23 @724

EDIT: no he dicho nada, ¡probaré! Gracias.
No tenía idea de que se podía hacer eso xD

Para probarlo hice esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        print "Matriz ordenada por filas:\n";
        my @arr2 = sort { $arr[$a][1] <=> $arr[$b][1] } @arr;
 
        print $arr2[1][1]." ";
        print $arr2[1][2]." ";
        print $arr2[1][3]."\n";
        print $arr2[2][1]." ";
        print $arr2[2][2]." ";
        print $arr2[2][3]."\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He introduje una matriz de 2x3, así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

9 7

6 3Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y la debió haber mostrado con la fila del 4 primero, pero la mostró igual :S

por **xwalero** » 2012-02-04 17:21 @765

¡Listo! Así quedó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        print "Matriz ordenada por filas:\n";
        my @arr2 = sort { $arr[$a][1] <=> $arr[$b][1] } @arr;
 
        print "\nSEGUNDA:\n";
        for $list_ref ( sort {$a->[1] <=> $b->[1]} @arr2 )
        {
        print "@$list_ref \n";
        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡Muchas gracias!

por **explorer** » 2012-02-04 20:13 @884

¿Por qué haces la ordenación dos veces?

por **xwalero** » 2012-02-05 12:24 @558

Porque al hacer la primera, después muestro los resultados y no salen ordenados. Y si hago la segunda solamente, me da un error de querer modificar atributos... entonces primero está el array duplicado y después se ordena con la segunda función de ordenamiento.

Foro - Perl en Español

Ejercicio con matrices

Ejercicio con matrices

Publicidad

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

Re: Ejercicio con matrices

¿Quién está conectado?