Meissel–Mertens constant: Difference between revisions

Meissel–Mertens constant in FreeBASIC
(→‎{{header|Go}}: Removed preamble as Wren example now fixed.)
(Meissel–Mertens constant in FreeBASIC)
Line 38:
:*   Details in the Wikipedia article:  [https://en.wikipedia.org/wiki/Meissel%E2%80%93Mertens_constant Meissel–Mertens constant]
<br /><br />
 
=={{header|FreeBASIC}}==
On my CPU i5 it takes about 3.5 minutes
<syntaxhighlight lang="freebasic">'#include "isprime.bas"
 
Const As Double Euler = 0.57721566490153286
 
Dim As Double m = 0
For x As Ulongint = 2 To 1e8
If isPrime(x) Then m += Log(1-(1/x)) + (1/x)
Next x
Print "MM ="; Euler + m
Sleep</syntaxhighlight>
{{out}}
<pre>MM = 0.2614972131104154</pre>
 
=={{header|Go}}==
2,148

edits