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}}==
| |||