Ed S on Nostr: #bbcmicrobot 10 *k.10 OLD|MDEL.1,20|MREN.|M|K|K|KLIST|MRUN|M 20 CALL!-4 30 REM pi by ...
#bbcmicrobot
10 *k.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-18 16:02:40Event JSON
{
"id": "edd055279ec31e57da9170b543979414cbe98e7bf15931adb9077cdbd2abe869",
"pubkey": "9c6db20bcebcdd7dde4f5ba5f4adcf627db47d7af2d2b6ee951c5fbbbbb1a210",
"created_at": 1716048160,
"kind": 1,
"tags": [
[
"e",
"ad824a78b5ea21304aa9e1743d3cfc2d10edc5b59c2d835b585b557bd7a222d1",
"wss://relay.mostr.pub",
"reply"
],
[
"t",
"bbcmicrobot"
],
[
"content-warning",
"pi by Bill Gosper in Basic"
],
[
"proxy",
"https://mastodon.sdf.org/users/EdS/statuses/112462932240464613",
"activitypub"
]
],
"content": "#bbcmicrobot \n10 *k.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": "348a79115d6f4101d8000e8b8b0566a59073b6b789a4f21f2eeb87dcccd60998fe0c86a16b059205b3b5d872ae7bbc3b383760212fd87ba8bceb55525ace7d66"
}
