“Conocimientos Programación>Perl Programming

¿Cómo revertir una matriz

2014/10/24
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
Cómo llamar a un shell desde un script de Perl
Cálculo Perl Script
Cómo generar una contraseña aleatoria
Cómo incluir una PerlScript en un documento HTML
Cómo reinstalar un módulo CPAN
Cómo eliminar archivos HTML en el directorio en Perl
Cómo convertir XLS a CSV en Perl
Cómo leer enteros en Perl
Conocimientos Informáticos © http://www.ordenador.online