Meissel–Mertens constant: Difference between revisions

→‎{{header|Perl}}: iterate over primes (much faster)
imported>Maxima enthusiast
No edit summary
(→‎{{header|Perl}}: iterate over primes (much faster))
Line 714:
{{libheader|ntheory}}
<syntaxhighlight lang="perl" line>use v5.36;
use ntheory 'is_prime'qw(forprimes);
 
my $s;
is_primeforprimes $_ and{ $s += log(1 - 1/$_)+1/$_ for 2 ..} 10**91e9;
say my $result = $s + .57721566490153286;</syntaxhighlight>
{{out}}
2,747

edits