Meissel–Mertens constant: Difference between revisions
Content added Content deleted
(added Raku programming solution) |
m (→{{header|Raku}}: iterate over integral list) |
||
Line 538: | Line 538: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
{{trans|FreeBASIC}} |
{{trans|FreeBASIC}} |
||
<syntaxhighlight lang="raku"># 20221011 Raku programming solution |
<syntaxhighlight lang="raku" line># 20221011 Raku programming solution |
||
my $s; |
|||
raku -e 'loop ($_=2,my $s;;.++) { .is-prime and $s += log(1-1/$_)+1/$_; say $s+.57721566490153286 and exit if $_ > 1e8 }' |
|||
.is-prime and $s += log(1-1/$_)+1/$_ for 2 .. 10**8; |
|||
⚫ | |||
</syntaxhighlight> |
say $s + .57721566490153286</syntaxhighlight> |
||
{{out}} |
|||
⚫ | |||
=={{header|Wren}}== |
=={{header|Wren}}== |