Meissel–Mertens constant: Difference between revisions

m
→‎{{header|Raku}}: iterate over integral list
(added Raku programming solution)
m (→‎{{header|Raku}}: iterate over integral list)
Line 538:
=={{header|Raku}}==
{{trans|FreeBASIC}}
<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;
0.26149721310571383
say $s + .57721566490153286</syntaxhighlight>
{{out}}
<pre>0.26149721310571383</pre>
 
=={{header|Wren}}==
351

edits