RosettaCodeData/Task/Continued-fraction/F-Sharp/continued-fraction-5.fs
2023-07-01 13:44:08 -04:00

2 lines
191 B
FSharp

let pi = π [3M;7M;15M;1M;292M;1M;1M;1M;2M;1M;3M;1M;14M;2M;1M;1M;2M;2M;2M;2M]
cN2S pi |> Seq.take 10 |> Seq.pairwise |> Seq.iter(fun(n,g)->printfn "%1.14f < π < %1.14f" (min n g) (max n g))