Revision as of 14:47, 15 March 2022 (view source) Nigel Galloway (talk \| contribs) (→‎{{header\|F_Sharp\|F#}}: Haskell can probably do this as an unfold, it has not so I shall in F#) ← Older edit		Revision as of 14:54, 15 March 2022 (view source) Nigel Galloway (talk \| contribs) (→‎As an Unfold) Newer edit →
Line 2,165: <lang fsharp> // Generate Pi as above using unfold. Nigel Galloway: March 15th., 2022 let Piπ()=Seq.unfold(fun(q,r,t,k,n,l)->Some(if 4Iq+r-t < nt then(Some(int n),((10Iq),(10I(r-nt)),t,k,((10I(3Iq+r))/t-10In),l)) else (None,((qk),((2Iq+r)l),(tl),(k+1I),((q(7Ik+2I)+rl)/(tl)),(l+2I)))))(1I,0I,1I,1I,3I,3I)\|>Seq.choose id Piπ()\|>Seq.take 767\|>Seq.iter(printf "%d") </lang>

Pi (view source)