Foro de elhacker.net

Function isPrime(ByVal num As Integer) As Boolean
        Dim i As Integer
        Dim auxTest As Boolean
        Dim auxCriba(9) As Integer 
        auxCriba(0) = 2
        auxCriba(1) = 3
        auxCriba(2) = 5
        auxCriba(3) = 7
        auxCriba(4) = 11
        auxCriba(5) = 13
        auxCriba(6) = 17
        auxCriba(7) = 19
        auxCriba(8) = 23
        auxCriba(9) = 29
 
        For i = 0 To auxCriba.Length - 1
            If num Mod auxCriba(i) = 0 Then
                isPrime = False
            Else
                auxTest = True
 
            End If
        Next
 
        Return auxTest
    End Function

    Sub Main()
        Dim Min, Max, maxPrim As Integer
        Dim i, j As Integer
        Dim Primes() As Integer
 
        Console.Write("Introduce el maximo de primos a mostrar: ")
        maxPrim = CInt(Console.ReadLine())
        Console.Write("Introduce el minimo del intervalo: ")
        Min = CInt(Console.ReadLine())
        Console.Write("Introduce el maximo del intervalo: ")
        Max = CInt(Console.ReadLine())
        Console.WriteLine()
        Console.WriteLine()
        ReDim Primes(maxPrim-1)
 
        For i = 0 To maxPrim - 1 'este for es para almacenar el numero primo en el array Primes(), en la posicion "i"
            For j = Min To Max - 1 'y este recorrre desde el valor minimo hasta el maximo y va comparando si el valor de "j" es un numero primo(deberia)
                If isPrime(j) = True Then
                    Primes(i) = j
                End If
            Next
        Next
 
        Console.Write("Los numero primos entre " & Min & " y " & Max & " son: ")
        For i = 0 To Primes.Length - 1 
            Console.Write(Primes(i) & " ")
        Next
        Console.ReadLine()
    End Sub

19 19 19 19 19 19 19 19 19 19 

Function esPrimo( Integer sNum ) return Boolean
   Integer sCont = 0
   For i = 0 To sNum
    If (sNum MOD i == 0) Then
      sCont = sCont + 1
    End If
   Next
 
  If ( sCont == 2 ) Then
    Return true
  Else
    Return false
  End If
End Function

  Integer sMen = 3, sMax = 50
 
  For i = sMen To sMax
    If ( esPrimo( i )  == true ) Then
      Print i
    End If
  Next

if num == 2
   return true;
 
if num%2==0
   return false
raiz=sqrt(num)
for i =3 hasta raiz
   if num%i==0
      return false
 
return true
 

 Public Function IsPrime(ByVal n As Long) As Boolean
 
        ''Si es 1 no es primo
        If n = 1 Then
            Return False
            ''Si es 2 es primo
        ElseIf n = 2 Then
            Return True
        End If
 
        'Si la raiz de "n" es exacta entonces no es primo
 
        If Math.Sqrt(n) Mod 2 = 0 Then
            Return False
        End If
 
        ''Desde el 2 hasta el número "n - 1"
        For x As Long = 2 To (n - 1)
            ''Si "n" divisible entre "x"
            ''entonces no es primo
            If (n Mod x) = 0 Then
                Return False
            End If
        Next
        ''Despues de todas las comprobaciones
        '' fallidas entonces "n" es primo
        Return True
 
    End Function

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
 

    Public Function Primes(ByVal N As Long) As Long()
 
        If N < 3 Then
            Return New Long() {}
        End If
 
        Dim _Tabla As New BitArray(N - 2), _
        _Primes As New List(Of Long), _
        _P As Byte() = New Byte() {2, 3, 5, 7}
 
 
        Dim Y As Long = 2
        For Each X As Byte In _P
            Do While (X * Y) < N
                _Tabla((X * Y) - 2) = True
                Y += 1
            Loop
        Next
 
        Y = 0
        Do While Y < (_Tabla.Length - 1)
            If Not _Tabla(Y) AndAlso _
                Not (Math.Sqrt(Y + 2) = CLng(Math.Sqrt(Y + 2))) Then
                _Primes.Add(Y + 2)
            End If
            Y += 1
        Loop
 
        Return _Primes.ToArray()
    End Function

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 List(Of Long) = getPrimes(99999999)
        vReloj.Stop()
        Debug.WriteLine("Se Calcularon los primeros " & vPrimos.Count & " en " & (vReloj.ElapsedMilliseconds / 1000) & " segundos.")
    End Sub
 
    Function getPrimes(ByVal vLimite As Long) As List(Of Long)
        Dim vNoEsPrimo(vLimite) As Boolean
        Dim vPrimos As New List(Of Long)
        For vPrimo As Long = 2 To vLimite
            If Not vNoEsPrimo(vPrimo) Then
                vPrimos.Add(vPrimo)
                For i As Long = vPrimo * 2 To vLimite Step vPrimo
                    vNoEsPrimo(i) = True
                Next
            End If
        Next
        Return vPrimos
    End Function
End Class