Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ''' Prime Sieve '''
- Public Function GeneratePrimesNaive(n As Integer) As List(Of Integer)
- Dim primes As New List(Of Integer)()
- primes.Add(2)
- Dim nextPrime As Integer = 3
- While nextPrime < n
- Dim sqrt As Integer = CInt(Math.Sqrt(nextPrime))
- Dim isPrime As Boolean = True
- Dim i As Integer = 0
- While CInt(primes(i)) <= sqrt
- If nextPrime Mod primes(i) = 0 Then
- isPrime = False
- Exit While
- End If
- If i = primes.Count - 1 Then Exit While Else i += 1
- End While
- If isPrime Then
- primes.Add(nextPrime)
- End If
- nextPrime += 2
- End While
- Return primes
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement