61 lines
1.7 KiB
Text
61 lines
1.7 KiB
Text
#include "isprime.bas"
|
|
|
|
#define maxi 1000035
|
|
Dim As Integer CU = 0, C2 = 0, C3 = 0, C4 = 0, C5 = 0, N, I, P = 0
|
|
Dim As Integer Unsexy(10), Pairs(5), Trips(5), Quads(5), Quins(5)
|
|
|
|
For N = maxi To 2 Step -1
|
|
If isPrime(N) Then
|
|
P += 1
|
|
If Not isPrime(N-6) And Not isPrime(N+6) Then
|
|
If CU < 10 Then Unsexy(CU) = N
|
|
CU += 1
|
|
End If
|
|
If isPrime(N-6) Then
|
|
If C2 < 5 Then Pairs(C2) = N
|
|
C2 += 1
|
|
If isPrime(N-12) Then
|
|
If C3 < 5 Then Trips(C3) = N
|
|
C3 += 1
|
|
If isPrime(N-18) Then
|
|
If C4 < 5 Then Quads(C4) = N
|
|
C4 += 1
|
|
If isPrime(N-24) Then
|
|
If C5 < 5 Then Quins(C5) = N
|
|
C5 += 1
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Next N
|
|
|
|
Print P; " primes less than"; maxi
|
|
|
|
Print Chr(10); C2; " pairs ending with:"
|
|
For I = 4 To 0 Step -1
|
|
Print " [" & Pairs(I)-6 & ", "& Pairs(I) & "]"
|
|
Next I
|
|
|
|
Print Chr(10); C3; " triplets ending with:"
|
|
For I = 4 To 0 Step -1
|
|
Print " [" & Trips(I)-12 & ", "& Trips(I)-6 & ", "& Trips(I) & "]"
|
|
Next I
|
|
|
|
Print Chr(10); C4; " quadruplets ending with:"
|
|
For I = 4 To 0 Step -1
|
|
Print " [" & Quads(I)-18 & ", "& Quads(I)-12 & ", "& Quads(I)-6 & ", "& Quads(I) & "]"
|
|
Next I
|
|
|
|
Print Chr(10); C5; " quintuplet(s) ending with:"
|
|
I = Iif(C5 > 5, 5, C5)
|
|
For I = I-1 To 0 Step -1
|
|
Print " [" & Quins(I)-24 & ", "& Quins(I)-18 & ", "& Quins(I)-12 & ", "& Quins(I)-6 & ", "& Quins(I) & "]"
|
|
Next I
|
|
|
|
Print Chr(10); CU; " unsexy primes ending with:"
|
|
For I = 9 To 0 Step -1
|
|
Print Unsexy(I); ",";
|
|
Next I
|
|
Print Chr(8); " "
|
|
Sleep
|