Ed S on Nostr: #BBCMicroBot #retroComputing ...
#BBCMicroBot
#retroComputing
q=1:r=0:t=1:k=1:n=3:l=3:REPEATIF(q*4+r-t<n*t)PRINT;n;:nr=(r-n*t)*10:n=INT((q*3+r)*10/t)-n*10:q=q*10:r=nr:UNTIL0ELSEnr=(q*2+r)*l:nn=INT((q*k*7+2+r*l)/(t*l)):q=q*k:t=t*l:l=l+2:k=k+1:n=nn:r=nr:UNTIL0
Published at
2024-05-11 17:39:40Event JSON
{
"id": "4931607819ca827ba351b262aba71035203a49e87685bc86ab7e8c0cb4201f48",
"pubkey": "9c6db20bcebcdd7dde4f5ba5f4adcf627db47d7af2d2b6ee951c5fbbbbb1a210",
"created_at": 1715449180,
"kind": 1,
"tags": [
[
"t",
"bbcmicrobot"
],
[
"t",
"retrocomputing"
],
[
"content-warning",
"computing pi - unbounded spigot - bbc basic"
],
[
"proxy",
"https://mastodon.sdf.org/users/EdS/statuses/112423677469849991",
"activitypub"
]
],
"content": "#BBCMicroBot \n#retroComputing \n\nq=1:r=0:t=1:k=1:n=3:l=3:REPEATIF(q*4+r-t\u003cn*t)PRINT;n;:nr=(r-n*t)*10:n=INT((q*3+r)*10/t)-n*10:q=q*10:r=nr:UNTIL0ELSEnr=(q*2+r)*l:nn=INT((q*k*7+2+r*l)/(t*l)):q=q*k:t=t*l:l=l+2:k=k+1:n=nn:r=nr:UNTIL0",
"sig": "f9cf4786e10afa6037eb434f36dc13848d4069d15f04d4b77572e77bfb15c3e8893fe687b8aa4ca5f2cf7d868585ce709ffab2197c40e41ccd1831b10bd8ffdc"
}
