“Conocimiento Programación>Perl Programming

¿Cómo revertir una matriz

2013/11/18
Prácticamente todos los lenguajes de programación utilizan una estructura de matriz para almacenar una lista de datos . Por ejemplo , " matriz ( 76 , 3 , 5 ) . " La matriz inversa contendría los mismos datos, pero hacia atrás , es decir " new_array ( 5 , 3 , 76 ) . " Perl, un lenguaje de programación de libre acceso , le permite implementar un algoritmo muy elegante para invertir una matriz que requiere sólo cuatro líneas del código. El algoritmo utiliza Perl funciones incorporadas " pop" y " empuje ". Cosas que necesitará de computadora
Ver Más instrucciones sobre The Steps
1

obtener datos de la matriz desde el programa principal . Otra matriz " new_array " contendrá los datos invertidos.
2

Eliminar el último elemento de la matriz inicial utilizando la función " pop" .
3

Añada que elemento que el primero en la nueva matriz con la función de "cambio "

4 Repita los pasos 2 y 3 hasta que la matriz inicial se convierte en vacío, . todos los elementos que se transfieren a la nueva en el orden inverso.
5

El programa de trabajo está por debajo de Perl # programa startsmy $ array = [ qw ( 1 2 6 9 7.4 25 12.6 2 6 ) ] ; # Ejemplo arraymy $ new_array = []; print " $ @ array \\ n "; reverse_array ( $ array , $ new_array ) ; print" @ $ new_array \\ n "; # impresión de la nueva arrayexit ;

sub reverse_array {my ( $ array , $ new_array ) = @ _ ; # Paso 1 . Leer arraywhile inicial ( @ $ array ) {my $ entrada = pop ( @ $ array ) ; # Paso 2 . eliminar el último elemento de la arraypush inicial @ $ new_array , $ entrada ; # Paso 3 . Añadir este elemento a la nueva matriz como la primera } }
6

La salida del programa es el siguiente1 2 6 7.4 25 9 12.6 2 6 <--- inicial array6 2 12.6 9 25 7.4 6 2 1 <--- nueva matriz arrayThe se invierte.

Perl Programming
¿Qué es perflib perfdata 2b0?
Cómo convertir una cadena a INT PERL
Cómo convertirse en un programador de Perl
Cómo calcular los factores primos de un número entero en Perl
¿Cuál es la función de las instrucciones NOP?
Cómo ejecutar PHP sobre Perl
Cómo analizar una línea en Perl
Cómo convertir una matriz en una cadena en Perl
Conocimiento de la computadora © http://www.ordenador.online