[SNIPPET+RETO] IsItPrime() - Comprobar si un numero es primo

[raul338]

Felicidades, fue divertido Habran mas de estos seguro

COBEIN WINS! Fatality

Ps.... estare esperando haber si puedo participar

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

[cobein]

Hay un error en el codigo, despues lo corrijo.

[Karcrack]

Hay un error en el codigo, despues lo corrijo.

Bueno, el error para quien quiera saberlo es que comprobaba mal la multiplicidad de 5...


Me he quedado hoy pensando... y hay una forma realmente sencilla de obtener el ultimo digito de una cifra... sin usar cadenas de textoooo Simplemente hay que obtener el resto al dividir por 10 (aka Mod 10)

He hecho este codigo , si no me equivoco es la mas rapida (sin contar la de Cobein, que no acaba de funcionar)

Código (vb) [Seleccionar] Expandir

Public Function IsItPrime(ByVal lNumber As Long) As Boolean
    Dim i       As Long

    If lNumber < 10 Then
        If lNumber = 2 Then IsItPrime = True: Exit Function
        If lNumber = 5 Then IsItPrime = True: Exit Function
        If lNumber = 1 Then Exit Function
    ElseIf (lNumber And 1) Then
        Select Case (lNumber Mod 10)
            Case 1, 3, 7, 9
                For i = 3 To Sqr(lNumber) Step 2
                    If (lNumber Mod i) = 0 Then Exit Function
                Next i
                IsItPrime = True
        End Select
    End If
End Function

[Psyke1]

WOow que bueno!!
A ver si cuando acabe examenes me meto a tope con bytes. 
Tu code es muy sencillo y eficaz!

Una cosilla de nada:
Si quitas el indicador en el For ahorras un poquitin (muy poco) de tiempo...
http://foro.rthacker.net/programacion-visual-basic/como-acelerar-codigo-en-vb6/

DoEvents¡!

[Karcrack]

Una cosilla de nada:
Si quitas el indicador en el For ahorras un poquitin (muy poco) de tiempo...
http://foro.rthacker.net/programacion-visual-basic/como-acelerar-codigo-en-vb6/

DoEvents¡!

Estas equivocado

Código [Seleccionar] Expandir

http://www.xbeat.net/vbspeed/c_ForNext.htm

Código [Seleccionar] Expandir

Despite all rumors: Next or Next i does NOT matter at all!! The minimal differences you see in the timings above are totally insignificant: you could produce any possible ranking order by running the same test over and over again long enough.

Esa pequeña diferencia de tiempo va a favor de uno u otro dependiendo de cada vez que lo ejecutas...

[Psyke1]

 
Ok tu ganas...

DoEvents¡!