Invertire l'ordine dei valori contenuti dagli elementi di un vettore

Per invertire l'ordine dei valori degli elementi di un vettore, cosicché ad esempio da una situazione iniziale come la seguente: 11, 22, 33, 44, 55, 66, si ottenga la nuova: 66, 55, 44, 33, 22, 11, è sufficiente adottare il Metodo ".Reverse( )" dell'oggetto array.

Mostriamo un semplice esempio:

Public Sub Main()
 
 Dim vett As Integer[] = [11, 22, 33, 44, 55, 66, 77]
 Dim v As Integer
  
  For Each v In vett
    Print v,
  Next
  Print
  
  vett.Reverse()
  
  For Each v In vett
    Print v,
  Next
  Print
  
End

Scrivere un'apposita esplicita funzione

In alternativa è possibile scrivere una esplicita funzione in Gambas, come ad esempio la seguente:

Public Sub Main()
 
 Dim vett As Integer[] = [11, 22, 33, 44, 55, 66, 77]
 Dim v As Integer
  
  For Each v In vett
    Print v,
  Next
  Print
  
  Inversione(vett)     ' Passaggio dell'argomento per "Indirizzo"
  
  For Each v In vett
    Print v,
  Next
  Print
  
End


Private Function Inversione(ii As Integer[])
 
 Dim i, c As Integer
   
   Repeat
     i = ii[ii.Max - c]
     ii[ii.Max - c] = ii[c]
     ii[c] = i
     Inc c
   Until c > (ii.Max - c)
  
End