Mensajes: 349
Temas: 8
Gracias Recibidas: 69 en 56 posts
Gracias Dadas: 63
Registro en: May 2020
(27-01-2021, 22:24)tercoide escribió: GAMBAS
(Byte[].
FromString(cadena
)).
Reverse().
ToString()
Ahi hay 3 funciones que no sabia ni que existían, aun Gambas nos sorprende cada tanto con su poder
Maravilloso!!
Por favor, usa el corrector ortográfico antes de pulsar el botón 'Enviar'
Mensajes: 1,030
Temas: 159
Gracias Recibidas: 168 en 140 posts
Gracias Dadas: 135
Registro en: Jul 2020
28-01-2021, 18:54
(Última modificación: 29-01-2021, 11:45 por
tincho.)
Hice este ejemplo, para verificar el código propuesto pero en el caso que intento adaptar
Reverse2 no funciona adecuadamente, algo se me escapa.
GAMBAS
' Gambas class file
m.Add(Rand(33, 165))
s = m.ToString()
stx.Add(s)
m.Clear
otx1 = Reverse1(stx)
otx2 = Reverse2(stx)
If otx1.
Count = stx.
Count And otx2.
Count = stx.
Count Then Print stx
[z
]& ":" & otx1
[z
] & ":" & otx2
[z
]
r.FromString(s)
r.Reverse()
otx.Add(r.ToString())
otx.
Add((Byte[].
FromString(s
)).
Reverse().
ToString())
1 Saludo.
Mensajes: 671
Temas: 238
Gracias Recibidas: 139 en 93 posts
Gracias Dadas: 93
Registro en: Jul 2020
(28-01-2021, 01:37)tercoide escribió: 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
"El buen perfume en frasco pequeño se vende"