Mensajes

si tiene algunas desventajas, sobre los permisos y el perfil de usuario, puede que no tenga activado WMI y no te va a funcionar.

saludos.

Mis amigos tienen android y hay pokisimas aplicaciones, "da asco".

sabias que hay mas de 200 mil aplicaciones en el Market de android ?, y que hay mas aplicaciones gratis para android que para iphone ? igualmente que importa eso.., decime cuantas tenes instaladas 20 mil aplicaciones, ni debes llegar a las 20 ?

[Keyen Night]

una de las formas mas rapidas de sacar primos es la llamada "Criba de Eratóstenes" y tambien una de las mas antiguas (antes de cristo),

informacion del metodo:

Criba de Eratóstenes

aca hay una implementación de ese metodo.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private vReloj As New Stopwatch()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vReloj.Reset()
        vReloj.Start()
        Dim vPrimos As Long() = getPrimes(9000000)
        vReloj.Stop()
        Debug.WriteLine("Se Calcularon los primeros " & vPrimos.Length & " en " & (vReloj.ElapsedMilliseconds / 1000) & " segundos.")
    End Sub

    Private Shared Function getPrimes(ByVal n As Long) As Long()
        If n < 3 Then
            If n = 2 Then
                Dim prime2 As Long() = {2}
                Return prime2
            Else
                Dim no_prime As Long() = {}
                Return no_prime
            End If
        End If

        Dim composite As New BitArray(n / 3)
        Dim d1 As Long = 8, d2 As Long = 8, p1 As Long = 3, p2 As Long = 7, s As Long = 7, s2 As Long = 3
        Dim i As Long = 0
        Dim len As Long = composite.Length
        Dim toggle As Boolean = False

        While s < len

            If Not composite(System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)) Then
                Dim inc As Long = p1 + p2
                Dim k As Long = s

                While k < len
                    composite(k) = True
                    k += inc
                End While

                k = s + s2

                While k < len
                    composite(k) = True
                    k += inc
                End While
            End If

            p1 += 2
            If InlineAssignHelper(toggle, Not toggle) Then
                s += d2
                d1 += 16
                p2 += 2
                s2 = p2
            Else
                s += d1
                d2 += 8
                p2 += 6
                s2 = p1
            End If
        End While

        Dim primes As New List(Of Long)()
        Dim log_n As Double = Math.Log(n)

        primes.Capacity = CInt((n / log_n) * (1 + 1.2762 / log_n))
        primes.Add(2)
        primes.Add(3)

        Dim p As Long = 5
        toggle = False
        i = 0

        While p <= n
            If Not composite(System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)) Then
                primes.Add(p)
            End If
            p += If((InlineAssignHelper(toggle, Not toggle)), 2, 4)
        End While

        Return primes.ToArray()
    End Function

    Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
End Class


la diferencia es abismal, compilado este ejemplo calcula el primer MILLON de numeros primos en 0.3 segundos, no llega a un segundo.

en cambio algo asi como la funcionde Keyen Night, calcular el primer millon de numeros tardaria unos 40 segundos, en cambio este ejemplo en 40 segundos calcularia los primeros 100 millones.

saludos.

no si la verdad es q quiero un htc desire, pero es q lo del tema de la compatibilidad es una porqueria 
espero q en el futuro cambie eso

no entiendo cuando decis problema de compatibilidad ?

este es el grafico hoy en dia de las versiones mas usadas de android.

porque no haces una consulta que te devuelva el ultimo +1 ?

Código (sql) [Seleccionar] Expandir

SELECT MAX(nrofactura)+1 FROM Tabla

digamos que no necesitas un autoincremento, con eso ya traerias el proximo numero de factura.

saludos.

Android ∞
IPhone -∞

comprate un android !!!

cueste creerlo, a mi me banearon 15 dias de este foro, por solo decir que la pregunta de un usuario me parecio "estupida", y realmente lo era, hasta el propio usuario despues afirmo que era asi, ni siquiera me avisaron como para que me retracte de lo que dije, fue un "baneo al vuelo", primero sentis bronca e impotencia, pero despues cuando volves sos otro, otra cosa es que ni siquiera fue en el subforo que modero, fue en el foro libre.

Hay una buena cantidad sobre todo de rootkits para Linux, y son mas jodidos de quitar. Claro que hay mas malware para windows...

Si alguien ha de usar un SO porque así no se infecta con malware demuestra que poco sabe, lo importante es tener información y cuidado, a partir de aquí los programas de seguridad actualizados. No hay que llevarse las manos a la cabeza y gritar como puercos porque se nos cuele un virus, no es una buena escusa para usar Linux.

Exacto, los que dicen que usan linux porque no hay virus a mi me tienen podrido, que usen linux por lo que ellos quieran, yo uso windows y no tengo ningun porque, uso windows hace 7 años y nunca me entro un virus y he usado desde windows 98 al 7 y nunca un problema, el tema es saber cuidarse, saber que es un virus, donde se encuntran y como uno puede infectarse, con esas pocas cosas en la cabeza que linux "la chupe" como dijo maradona (ojo que no me gusta este tipo, pero la frase me vino justo para el caso). he visto linux de pasada y esta bueno, pero eso no importa sigo usando windows.

Hola, te hiba ayudar pero lo veo peligroso despues de leer lo que hace ese programa