[code]


Ahi hay 3 funciones que no sabia ni que existían, aun Gambas nos sorprende cada tanto con su poder

Maravilloso!! 

Hice este ejemplo, para verificar el código propuesto pero en el caso que intento adaptar Reverse2 no funciona adecuadamente, algo se me escapa.

Código:

' Gambas class file

Public Sub Form_Open()

  Dim z As Integer
  Dim s As String
  Dim stx As New String[]
  Dim otx1 As New String[]
  Dim otx2 As New String[]
  Dim j As Integer
  Dim m As New Byte[]

  For i = 1 To 100
    For j = 0 To 15
      m.Add(Rand(33, 165))
    Next
    s = m.ToString()
    stx.Add(s)
    m.Clear
  Next

  otx1 = Reverse1(stx)
  otx2 = Reverse2(stx)

  If otx1.Count = stx.Count And otx2.Count = stx.Count Then
    For z = 0 To stx.Max
      Print stx[z]& ":" & otx1[z] & ":" & otx2[z]
Next
  Endif

  Me.Close

End

Public Sub Reverse2(stx As String[]) As String[]

  Dim otx As New String[]
  Dim s As String
  Dim r As New Byte[]

  For Each s In stx
    r.FromString(s)
    r.Reverse()
    otx.Add(r.ToString())
  Next

  Return otx

End

Public Sub Reverse1(stx As String[]) As String[]

  Dim otx As New String[]
  Dim s As String

  For Each s In stx
    otx.Add((Byte[].FromString(s)).Reverse().ToString())
  Next
  Return otx
End

Con el tercer método, me arden los ojos ....no es casual que sea el mas lento

Tendré que comprobar más el tiempo que tardan las funciones recursivas con la forma que me has enseñado y recordado.
Comenzaré creando una función de factorial.

Tengo que ver el de Tincho, que me lo perdí. 

Saludos