Nesten alle programmeringsspråk bruke en rekke struktur for å lagre en liste over data . For eksempel " array ( 76, 3, 5 ) . " Den reverserte matrise ville inneholde de samme data, men bakover dvs. " new_array ( 5 , 3 , 76 ) . " Perl, en fritt tilgjengelig programmeringsspråk, kan du implementere en svært elegant algoritme for å reversere en matrise som krever bare fire linjer av koden. Algoritmen bruker Perl innebygde funksjoner " pop" og "push ". Du trenger
Computer
Vis flere instruksjoner
Steps
en

Skaff rekke data fra hovedprogrammet . En annen array " new_array " vil inneholde reversert data .
2

Fjern det siste elementet fra første rekke ved hjelp av " pop "-funksjonen .
3

Legg det element som den første til det nye utvalget med "shift "-funksjonen
4

Gjenta trinn 2 og 3 inntil den opprinnelige matrise blir tom ; . alle sine elementer bli overført til den nye i motsatt rekkefølge .
5

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

sub reverse_array { min ( $ array, $ new_array ) = @ _ ; # Trinn 1 . Les innledende arraywhile ( @ $ array) { my $ entry = pop ( @ $ array) ; # Trinn to . fjerne det siste elementet av den første arraypush @ $ new_array , $ innreise, # Trinn 3 . Legg dette elementet til den nye matrisen som den første } }
6

Programmet produksjonen er som følger1 2 6 7,4 25 9 12,6 2 6 < --- første array6 2 12.6 9 25 7,4 6 2 1 < --- ny arrayThe matrise er reversert.