Twin primes: Difference between revisions
Added Quackery.
m (C# clarification) |
(Added Quackery.) |
||
Line 1,286:
Number of twin prime pairs less than 10000000 is 58980
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>
| |||