Anonymous user
Twin primes: Difference between revisions
m
→optimized prime number generator: optimized the GENP function.
m (→straight-forward prime generator: optimized the GENP function.) |
m (→optimized prime number generator: optimized the GENP function.) |
||
Line 1,139:
/*──────────────────────────────────────────────────────────────────────────────────────*/
genP: arg y; _= 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101
do aa=1 for #; @.aa= word(_, aa) /*assign some low primes for quick ÷'s.*/
end /*aa*/
Line 1,155:
if j//@.k ==0 then iterate j /*÷ by prev. prime? ¬prime ___ */
end /*k*/ /* [↑] only divide up to √ J */
prev= @.#;
if j-2==prev
end /*j*/
return tp</lang><br><br>
| |||