Extra primes: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add APL) |
||
Line 72:
3527 3727 5233 5237 5273 5323 5527 7237 7253 7523 7723 7727
</pre>
=={{header|APL}}==
<lang APL>extraPrimes←{
pd←0 2 3 5 7
ds←↓⍉(∧⌿ds∊pd)/ds←10(⊥⍣¯1)1↓⍳⍵
ds←↑((∧/2(≤≥0=⊢)/⊢)¨ds)/ds
ns←(ns≤⍵)/ns←10⊥⍉ds
ss←+/(⍴ns)↑ds
sieve←~(1+⌈/ns,ss){
r←1↓⍺⍴(⍺⌊⍵)↑1
∨/r:(r∧⍵≠⍳⍺-1)∨⍺∇1+2*r⍳1
(⍺-1)/0
}2
(sieve[ns]∧sieve[ss])/ns
}</lang>
{{out}}
<lang APL> extraPrimes 10000
2 3 5 7 23 27 223 227 333 337 353 373 377 533 553 557 577 733 737 757
773 777 2223 2227 2333 2353 2357 2377 2533 2537 2557 2573 2577
2737 2753 2757 2773 2777 3233 3253 3257 3277 3323 3523 3527 3727
5233 5237 5257 5273 5277 5323 5327 5527 5723 5727 7237 7253 7257
7273 7277 7327 7523 7527 7723 7727</lang>
=={{header|AWK}}==
| |||