Ed S on Nostr: #bbcmicrobot 10 *key 10 OLD|MDEL.1,20|MREN.|M|K|K|KLIST|MRUN|M 20 CALL!-4 30 REM pi ...
#bbcmicrobot
10 *key 10 OLD|MDEL.1,20|MREN.|M|K|K|KLIST|MRUN|M
20 CALL!-4
30 REM pi by Bill Gosper in 8 terms
40 FOR j=1 TO 8 : REM try fewer
50 FOR i=j TO 1 STEP -1
60 f=i*(2*i-1)/3/(3*i+1)/(3*i+2)
70 p=p*f+5*i-2
80 NEXT: PRINT p: NEXT
Published at
2024-05-19 17:00:44Event JSON
{
"id": "0f53fbe2aa6fdefe412261fd05190c8c969df0e067a14e34d5365fab80c1f102",
"pubkey": "9c6db20bcebcdd7dde4f5ba5f4adcf627db47d7af2d2b6ee951c5fbbbbb1a210",
"created_at": 1716138044,
"kind": 1,
"tags": [
[
"t",
"bbcmicrobot"
],
[
"content-warning",
"pi by Bill Gosper in Basic"
],
[
"proxy",
"https://mastodon.sdf.org/users/EdS/statuses/112468822853992194",
"activitypub"
]
],
"content": "#bbcmicrobot \n10 *key 10 OLD|MDEL.1,20|MREN.|M|K|K|KLIST|MRUN|M\n20 CALL!-4\n30 REM pi by Bill Gosper in 8 terms\n40 FOR j=1 TO 8 : REM try fewer\n50 FOR i=j TO 1 STEP -1\n60 f=i*(2*i-1)/3/(3*i+1)/(3*i+2)\n70 p=p*f+5*i-2\n80 NEXT: PRINT p: NEXT",
"sig": "9d0dbbea9d3e031eabd9a48a1b18c6a6d62eeaf9041cc40bcfedf6ad10b22ec9add20c4fc0799a77520e1975a7cf7b8a42b28d7cec83e0fa652d4d919b74079c"
}
