[RETO] ¿Fácil? Buscando los números de Lychrel

[raul338]

Hooola!

No sabia si presentar esto como reto o no (?)

Código [Seleccionar] Expandir


http://gaussianos.com/la-conjetura-del-196/
http://en.wikipedia.org/wiki/Lychrel_number


Ahi esta, tienen que hacer una funcion booleana que calcule los numeros capicuas a partir de este, con un numero maximo de vueltas, para calcular si es de Lychrel o no Ademas de devolver el numero final dado

La firma debe ser asi:

Código (vb) [Seleccionar] Expandir


Public Function IsLychrelNumber(numero As Double, ByRef numeroFinal As Double,Optional maxVueltas As Long = 20) As Boolean


Si no se logra dar el numero de vueltas en menos de maxVueltas se toma como si fuera numero de Lychrel (aunque el numero este en la vuelta 21 )

NOTA: Cabe aclarar que debe devolver True cuando no se encuentra el numero capicua  

El tiempo se medira con la clase CTiming ya publicada en retos anteriores...

Ahora si! A codear!

[Psyke1]

Me apunto raul!!

DoEvents¡!

[[D4N93R]]

Tiene que ser en VB? xD

[isseu]

lo hare más tarde, pero en c++

[Novlucker]

Ya lo hice, ahora lo tengo que modificar
Dada la manera en que se calcula el número, probando incluso con 89 (es uno de los ejemplos de wikipedia) se desborda, no sirven los long

Saludos

[raul338]

Corregido! Puse como double los tipos de datos, asi no hay desbordamientos

[79137913]

HOLA!!!

Que bueno acabo de leer el post de novlucker y me saco las dudas

Gracias!!!

[Novlucker]

Código (vb) [Seleccionar] Expandir

Function IsLychrelNumber(numero As Double, ByRef numeroFinal As Double, Optional maxVueltas As Long = 20) As Boolean

Dim i As Long
numeroFinal = numero

For i = 0 To maxVueltas
numeroFinal = numeroFinal + CDbl(StrReverse(CStr(numeroFinal)))
If (numeroFinal = CDbl(StrReverse(CStr(numeroFinal)))) Then Exit Function
Next
IsLychrelNumber = True

End Function

Entendí que numeroFinal era el último generado, así que comienzo con ese, sino lo quito y no lo uso
De cualquier manera, esto sigue siendo funcional para números "pequeños", sino hay que hacer la suma mediante strings.

Saludos

[raul338]

Optimizando me quedo como la de novlucker!!

Se me habia ocurrido comprar solo dando vuelta "despues de la mitad" del numero, pero... era mas lento ._.

Aca esta, se podria decir que es practicamente igual a la de novlucker, solo que esta funciona aun para numeros grandes

Código (vb) [Seleccionar] Expandir

Public Function EsLychrel(ByVal numero As Double, ByRef numeroFinal As Double, Optional maxVueltas As Long = 100) As Boolean
   Dim i As Long ' FAIL: As Integer xDDDD
   numeroFinal = Abs(numero) ' No permito numeros negativos
   If numero = CDbl(StrReverse(numero)) Then Exit Function ' Si el numero ya es capicua, para que me gasto? xD
   numeroFinal = Val(numero) ' Quito los decimales
   maxVueltas = Abs(maxVueltas) ' 1 a -10 (sumando 1) es imposible xDDD, quito los negativos
   For i = 1 To maxVueltas
       ' Sumo el normal y el numero al revez, poniendo formato numerico comun
       numeroFinal = numeroFinal + CDbl(StrReverse(FormatNumber(numeroFinal, 0, vbTrue, vbFalse, vbFalse)))
       ' Comparo si es el mismo :P
       If FormatNumber(numeroFinal, 0, vbTrue, vbFalse, vbFalse) = StrReverse(FormatNumber(numeroFinal, 0, vbTrue, vbFalse, vbFalse)) Then Exit Function
   Next
   EsLychrel = True
End Function


EDIT: Hecho en 56957,0293718157 ms, 10 To 100000, maxVueltas = 1000 (con DoEvents entre calculo de cada numero )

[Novlucker]

Dudo que tan grandes, la variable numeroFinal tiene un límite y ahí crashea.
Además, los códigos funcionan porque tiene el maxVueltas bajo, donde lo agrandes muere

[Edito]: El mío crashea con números más chicos xD

Saludos