Twin primes: Difference between revisions
Content added Content deleted
m (C# clarification) |
(Added Quackery.) |
||
Line 1,286: | Line 1,286: | ||
Number of twin prime pairs less than 10000000 is 58980 |
Number of twin prime pairs less than 10000000 is 58980 |
||
Number of twin prime pairs less than 100000000 is 440312 |
Number of twin prime pairs less than 100000000 is 440312 |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<code>primes</code> and <code>eratosthenes</code> are defined at [[Sieve of Eratosthenes#Quackery]]. |
|||
<lang Quackery> [ dup dip |
|||
[ eratosthenes |
|||
0 1 primes share ] |
|||
bit 1 - & 1 >> |
|||
[ dup while |
|||
dup 5 & 5 = if |
|||
[ rot 1+ unrot ] |
|||
2 >> |
|||
dip [ 2 + ] |
|||
again ] |
|||
2drop ] is twinprimes ( n --> [ ) |
|||
5 times |
|||
[ say "Number of twin primes below " |
|||
10 i^ 1+ ** dup echo |
|||
say " is " |
|||
twinprimes echo say "." cr ]</lang> |
|||
{{out}} |
|||
<pre>Number of twin primes below 10 is 2. |
|||
Number of twin primes below 100 is 8. |
|||
Number of twin primes below 1000 is 35. |
|||
Number of twin primes below 10000 is 205. |
|||
Number of twin primes below 100000 is 1224. |
|||
</pre> |
</pre> |
||