Foro de elhacker.net

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

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

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

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
 

Public Function IsLychrelNumberDanger(ByVal numero As Double, ByRef numeroFinal As Double, ByRef actualit As Integer, Optional ByVal maxVueltas As Long = 60) As Boolean
        actualit = actualit + 1
        Dim original As String
        original = CStr(numero)
        Dim reverse As String
        reverse = StrReverse(original)
 
        If original = reverse Then
            IsLychrelNumberDanger = False
        End If
 
        If actualit = maxVueltas Then
            IsLychrelNumberDanger = True
        End If
        numeroFinal = CDbl(reverse) + numero
        IsLychrelNumberDanger = IsLychrelNumberDanger(numeroFinal, numeroFinal, actualit, maxVueltas)
End Function
 
 

 
Public Function IsLychrelNumberBlackZeroX(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1 'Or IsLychrelNumberBlackZeroX = True
        InVal = StrReverse(OutValEnd) + 0
        IsLychrelNumberBlackZeroX = InVal - OutValEnd = 0
        If IsLychrelNumberBlackZeroX Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX = True
End Function
 
 

Public Function IsLychrelNumberBlackZeroX02(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1 'Or IsLychrelNumberBlackZeroX = True
        InVal = StrReverse(OutValEnd) + 0
        If InVal - OutValEnd = 0 Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX02 = True
End Function
 
 

 
Public Function IsLychrelNumberBlackZeroX03(ByVal InVal As Double, ByRef OutValEnd As Double, Optional InMaxVueltas As Long = 20) As Boolean
Dim tmp             As Double
    If InVal And &H80000000 Then Exit Function
    OutValEnd = InVal
    Do Until OutValEnd > 9
        OutValEnd = OutValEnd + OutValEnd
        InMaxVueltas = InMaxVueltas - 1
    Loop
    Do Until InMaxVueltas < 1
        tmp = OutValEnd: InVal = 0
        Do
            InVal = (InVal * 10) + (tmp Mod 10)
            tmp = tmp \ 10
        Loop While tmp > 0
        If InVal - OutValEnd = 0 Then Exit Do
        OutValEnd = OutValEnd + InVal
        InMaxVueltas = InMaxVueltas - 1
    Loop
    IsLychrelNumberBlackZeroX03 = True
End Function
 
 

 
Tokes:	128,759 msec
[D4N93R]:	10.388,359 msec
Raul338:	308,872 msec
Novlucker	:	131,863 msec
BlackZeroX (v 2):	96,643 msec
BlackZeroX (v 3):	35,655 msec
 
 

Public Function EsLychrel02(ByVal numero As Double, ByRef numeroFinal As Double, Optional maxVueltas As Long = 100) As Boolean
    If &H80000000 And maxVueltas Then Exit Function
    If numero < 10 Then Exit Function
    numeroFinal = numero
 
    numero = dblReverse(numeroFinal)
    If numeroFinal = numero Then
        numeroFinal = numero + numero
        Exit Function
    End If
 
    For maxVueltas = maxVueltas To 1 Step -1
        numero = dblReverse(numeroFinal)
        If numeroFinal = numero Then Exit Function
        numeroFinal = numeroFinal + numero
    Next
    EsLychrel02 = True
End Function
 

Private Function EsNumLychrel5b(ByVal num As Long, ByRef numeroFinal As Double, Optional ByVal iteraciones As Long = 50) As Boolean
Dim n As Double, nrev As Double
    If num And &H80000000 Then Exit Function
    n = num
    Do While iteraciones > 0
        nrev = dblReverse(n)
        If n = nrev Then
            numeroFinal = n
            Exit Function
        End If
        n = n + nrev
        iteraciones = iteraciones - 1
    Loop
    nrev = dblReverse(n)
    If n = nrev Then Exit Function
    EsNumLychrel5b = True
    numeroFinal = n
End Function