Goldbach's comet: Difference between revisions
Content added Content deleted
Line 674: | Line 674: | ||
G(1,000,000) = 5,402 |
G(1,000,000) = 5,402 |
||
</pre> |
</pre> |
||
=={{header|Picat}}== |
|||
<lang Picat>main => |
|||
println("First 100 G numbers:"), |
|||
foreach({G,I} in zip(take([G: T in 1..300, G=g(T),G>0],100),1..100)) |
|||
printf("%2d %s",G,cond(I mod 10 == 0,"\n","")) |
|||
end, |
|||
nl, |
|||
printf("G(1_000_000): %d\n", g(1_000_000)). |
|||
g(N) = cond((N > 2, N mod 2 == 0), |
|||
{1 : I in 1..N // 2, |
|||
prime(I),prime(N-I)}.len, |
|||
0).</lang> |
|||
{{out}} |
|||
<pre>First 100 G numbers: |
|||
1 1 1 2 1 2 2 2 2 3 |
|||
3 3 2 3 2 4 4 2 3 4 |
|||
3 4 5 4 3 5 3 4 6 3 |
|||
5 6 2 5 6 5 5 7 4 5 |
|||
8 5 4 9 4 5 7 3 6 8 |
|||
5 6 8 6 7 10 6 6 12 4 |
|||
5 10 3 7 9 6 5 8 7 8 |
|||
11 6 5 12 4 8 11 5 8 10 |
|||
5 6 13 9 6 11 7 7 14 6 |
|||
8 13 5 8 11 7 9 13 8 9 |
|||
G(1_000_000): 5402</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |