Stort set alle programmeringssprog bruger en array struktur til at gemme en liste over data. For eksempel, " array ( 76 , 3, 5). " Den omvendte matrix ville indeholde de samme data, men baglæns , dvs " new_array (5 , 3, 76) . " Perl, en frit tilgængelig programmeringssprog, tillader dig at gennemføre en meget elegant algoritme til at vende et array, der kræver kun fire linjer af koden. Algoritmen anvender Perl indbyggede funktioner " pop " og "push ". Hvad du har brug
Computer
Vis Flere Instruktioner fotos Steps
1

Anskaf array- data fra de vigtigste program. En anden array " new_array " indeholder tilbageførte data.
2

Fjern det sidste element fra den indledende array ved hjælp af " pop "-funktionen .
3

Tilføj , at element, da den første til at den nye array med "shift "-funktionen
4

Gentag trin 2 og 3, indtil den oprindelige matrix bliver tom , . alle dens elementer få overført til den nye i omvendt rækkefølge.
5

arbejder Perl -programmet er under # program startsmy $ matrix = [ qw (1 2 6 7,4 25 9 12,6 2 6) ] # Eksempel arraymy $ new_array = [] print " @ $ matrix \\ n "; reverse_array ( $ array, $ new_array ) print" @ $ new_array \\ n "; # Udskrivning af nye arrayexit ,

sub reverse_array { my ( $ array, $ new_array ) = @ _ ; # Trin 1 . Læs indledende arraywhile ( @ $ array) { min $ post = pop ( @ $ array) ; # Trin 2 . fjerne det sidste element af den oprindelige arraypush @ $ new_array , $ indrejse # Trin 3 . Føj dette element til den nye array som den første }}
6

programmets output er så follows1 2 6 7,4 25 9 12,6 2 6 <--- indledende array6 2 12,6 9 25 7,4 6 2 1 < --- nyt arrayThe matrix er vendt.