Jump to content

Erdős-primes: Difference between revisions

→‎{{header|Wren}}: Further speed-up.
(→‎{{header|Wren}}: More efficient and 11 x quicker than before.)
(→‎{{header|Wren}}: Further speed-up.)
Line 1,438:
var lastErdos = 0
var ec = 0
forvar (i in= 2...limit) {
while (i < limit) {
if (c[i]) continue
varif j(!c[i]) = 1{
var factj = 1
var foundfact = true1
while (fact < i) {var found = true
ifwhile (!c[ifact -< fact]i) {
foundif =(!c[i false- fact]) {
break found = false
j = j + 1 break
ec = ec + 1}
lastErdos j = ij + 1
fact = fact * j
}
if (found) {
if (i < lowerLimit) erdos.add(i)
lastErdos = i
ec = ec + 1
}
j = j + 1
fact = fact * j
}
if (found) {
if (i < lowerLimit) erdos.add(i)
lastErdos = i
ec = ec + 1
}
i = (i > 2) ? i + 2 : i + 1
}
 
9,488

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.