#bbcmicrobot 🚀
L%=2000:Z%=SQR(L%):P=6*1/(1-1/2/2)
DIM S% L%+2
FORI%=1TOL%+1STEP4:S%!I%=TRUE:NEXT
P%=2
REPEAT
FORI%=P%*P%TOL%STEPP%:S%?I%=0:NEXT
REPEATP%=P%+1:UNTILS%?P%
UNTIL P%>Z%
FOR I%=3 TO L% STEP 2
IF S%?I% P=P*1/(1-1/I%/I%):PRINT I%;" ";SQR(P)
NEXT
PRINT"pi approximated using primes, per Euler"
Ed S /
npub1n3…mn0ed
2024-08-04 11:25:50
Author Public Key
npub1n3kmyz7whnwhmhj0twjlftw0vf7mglt67tftdm54r30mhwa35ggqvmn0edPublished at
2024-08-04 11:25:50Event JSON
{
"id": "b7144119f2e7263d7b74e6a46381841d6fd96981bef2d291925e56a0fbed6839",
"pubkey": "9c6db20bcebcdd7dde4f5ba5f4adcf627db47d7af2d2b6ee951c5fbbbbb1a210",
"created_at": 1722770750,
"kind": 1,
"tags": [
[
"t",
"bbcmicrobot"
],
[
"content-warning",
"Compute pi using Euler's product formula"
],
[
"proxy",
"https://mastodon.sdf.org/users/EdS/statuses/112903503898073333",
"activitypub"
]
],
"content": "#bbcmicrobot 🚀\nL%=2000:Z%=SQR(L%):P=6*1/(1-1/2/2)\nDIM S% L%+2\nFORI%=1TOL%+1STEP4:S%!I%=TRUE:NEXT\nP%=2\nREPEAT\n FORI%=P%*P%TOL%STEPP%:S%?I%=0:NEXT\n REPEATP%=P%+1:UNTILS%?P%\nUNTIL P%\u003eZ%\nFOR I%=3 TO L% STEP 2\n IF S%?I% P=P*1/(1-1/I%/I%):PRINT I%;\" \";SQR(P)\nNEXT\nPRINT\"pi approximated using primes, per Euler\"",
"sig": "e059d7c27af09b386cd3f7ed54704042358e312471ce49e1974f64be57e58dcafb4ae2635ea5a9b3e9c438efd1dc68720acc4bf851c9c4489ccc26177f565295"
}