Sexy primes: Difference between revisions
Content added Content deleted
m (→{{header|Go}}) |
|||
| Line 537: | Line 537: | ||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
<lang julia> |
<lang julia> |
||
using Primes |
|||
function nextby6(i, a) |
function nextby6(i, a) |
||
| Line 570: | Line 571: | ||
quadruplets = Dict{Int64, Array{Int64,1}}() |
quadruplets = Dict{Int64, Array{Int64,1}}() |
||
quintuplets = Dict{Int64, Array{Int64,1}}() |
quintuplets = Dict{Int64, Array{Int64,1}}() |
||
isa_twin = Dict{Int64, Bool}() |
|||
possibles = primes(x + 30) |
possibles = primes(x + 30) |
||
singles = filter(y -> y <= x - 6, possibles) |
singles = filter(y -> y <= x - 6, possibles) |
||
unsexy = Dict(p => true for p in singles) |
unsexy = Dict(p => true for p in singles) |
||
for (i, p) in enumerate(singles) |
for (i, p) in enumerate(singles) |
||
twinidx = nextby6(i, possibles) |
|||
if twinidx > i |
|||
delete!(unsexy, p) |
|||
delete!(unsexy, p + 6) |
|||
twins[p] = [i, twinidx] |
|||
tripidx = nextby6(twinidx, possibles) |
|||
if tripidx > twinidx |
|||
triplets[p] = [i, twinidx, tripidx] |
|||
quadidx = nextby6(tripidx, possibles) |
|||
if quadidx > tripidx |
|||
quadruplets[p] = [i, twinidx, tripidx, quadidx] |
|||
quintidx = nextby6(quadidx, possibles) |
|||
if quintidx > quadidx |
|||
quintuplets[p] = [i, twinidx, tripidx, quadidx, quintidx] |
|||
if quintidx > quadidx |
|||
quintuplets[p] = [i, twinidx, tripidx, quadidx, quintidx] |
|||
end |
|||
end |
end |
||
end |
end |
||
| Line 602: | Line 599: | ||
"$(length(quadruplets)) quadruplets, and\n", |
"$(length(quadruplets)) quadruplets, and\n", |
||
"$(length(quintuplets)) quintuplets less than $x.") |
"$(length(quintuplets)) quintuplets less than $x.") |
||
println("The last 5 twin primes start with ", lastoneslessthan(twins, 5, x - 6)) |
println("The last 5 twin primes start with ", lastoneslessthan(twins, 5, x - 6)) |
||
println("The last 5 triplet primes start with ", lastones(triplets, 5)) |
println("The last 5 triplet primes start with ", lastones(triplets, 5)) |
||
| Line 612: | Line 608: | ||
end |
end |
||
primesbysexiness(1000035)</lang>{{output}}<pre> |
primesbysexiness(1000035) </lang> {{output}} <pre> |
||
There are: |
There are: |
||
16386 twins, |
16386 twins, |
||