aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Variable-size-Set/Phix/variable-size-set.phix
View file

@ -1,7 +1,4 @@
include mpfr.e -- requires 0.8.0+
string nines = repeat('9',1001) -- +1 for the "3."
mpz ndp = mpz_init(nines) -- mpz_init(nines,3326) would be identical
integer precision = mpz_sizeinbase(ndp,2) -- 3326
mpfr pi = mpfr_init(0,precision) -- or just hard-code that 3326
include mpfr.e -- requires 0.8.1+
mpfr pi = mpfr_init(0,-1001) -- 1000 dp, +1 for the "3."
mpfr_const_pi(pi)
mpfr_printf(1,"PI with 1000 decimals: %.1000RDf\n\n",pi)