Cómo invertir una matriz

Prácticamente todos los lenguajes de programación utilizan una estructura de matriz para almacenar una lista de datos. Por ejemplo, "array (76, 3, 5)." La matriz inversa contendrá los mismos datos, pero al revés, es decir "new_array (5, 3, 76)." Perl, un lenguaje de programación de libre acceso, le permite implementar una elegante algoritmo para invertir una matriz que requiere sólo cuatro líneas de código. El algoritmo utiliza Perl funciones integradas "pop" y "empuje".

Instrucciones

Los pasos

1 Obtener datos de la matriz del programa principal. Otro "new_array" matriz contendrá los datos invertidos.

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

3 Añadir este elemento como el primero de la nueva matriz con función de "cambio".

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

5 El programa de trabajo está por debajo de Perl

inicia programa

mi $ array = [QW (1 2 6 9 25 7,4 12,6 2 6)]; matriz #Ejemplo
mi new_array $ = []
IR
de impresión \ "@ $ array \ n"
IR
reverse_array ($ matriz, $ new_array)
IR
print "@ $ new_array \ n"; #Printing La nueva matriz
salida
IR

{sub reverse_array
mi ($ matriz, $

array nuevo) = @; #Step 1. Leer matriz inicial
mientras que (@ $ array) {
mi $ entrada = pop (@ $ array); 2. #Step eliminar el último elemento de la matriz inicial
empujar @ $ new_array, $ de entrada; #Step 3. Añadir este elemento a la nueva matriz como la primera

}
}

6 La salida del programa es el siguiente
1 2 6 9 25 7,4 12,6 2 6 <array-inicial
6 2 9 25 12,6 7,4 6 2 1 <array -nuevo
La matriz se invierte.