Mensajes: 376
Temas: 7
Gracias Recibidas: 98 en 78 posts
Gracias Dadas: 91
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,260
Temas: 183
Gracias Recibidas: 269 en 207 posts
Gracias Dadas: 200
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: 1,152
Temas: 412
Gracias Recibidas: 288 en 209 posts
Gracias Dadas: 184
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"