Special neighbor primes: Difference between revisions
Content added Content deleted
mNo edit summary |
(Add Factor) |
||
Line 27: | Line 27: | ||
(73, 79) |
(73, 79) |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
|||
{{works with|Factor|0.99 2021-06-02}} |
|||
<lang factor>USING: kernel lists lists.lazy math math.primes |
|||
math.primes.lists prettyprint sequences ; |
|||
lprimes dup cdr lzip [ sum 1 - prime? ] lfilter |
|||
[ second 100 < ] lwhile [ . ] leach</lang> |
|||
{{out}} |
|||
<pre> |
|||
{ 3 5 } |
|||
{ 5 7 } |
|||
{ 7 11 } |
|||
{ 11 13 } |
|||
{ 13 17 } |
|||
{ 19 23 } |
|||
{ 29 31 } |
|||
{ 31 37 } |
|||
{ 41 43 } |
|||
{ 43 47 } |
|||
{ 61 67 } |
|||
{ 67 71 } |
|||
{ 73 79 } |
|||
</pre> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||
{{trans|Wren}} |
{{trans|Wren}} |