计算π的精确值
string CalcPI() { int a, b, c, d, e, g; string S = ""; int[] f = new int[(c = 8400) + 1]; for (a = 10000, b = 0, d = 0, e = 0, g = 0; b != c; f[b++] = a / 5) ; for (; (g = c * 2 + (d = 0)) != 0; c -= 14, S += (e + d / a).ToString("0000"), e = d % a) for (b = c; b != 1; f[b] = (d += f[b] * a) % --g, d /= g--, d *= b--) ; return S; }
总共2400位,大家验证一下:
3141592653589793238462643383279502884197169399375
1058209749445923078164062862089986280348253421170
6798214808651328230664709384460955058223172535940
8128481117450284102701938521105559644622948954930
3819644288109756659334461284756482337867831652712
0190914564856692346034861045432664821339360726024
9141273724587006606315588174881520920962829254091
7153643678925903600113305305488204665213841469519
4151160943305727036575959195309218611738193261179
3105118548074462379962749567351885752724891227938
1830119491298336733624406566430860213949463952247
3719070217986094370277053921717629317675238467481
8467669405132000568127145263560827785771342757789
6091736371787214684409012249534301465495853710507
9227968925892354201995611212902196086403441815981
3629774771309960518707211349999998372978049951059
7317328160963185950244594553469083026425223082533
4468503526193118817101000313783875288658753320838
1420617177669147303598253490428755468731159562863
8823537875937519577818577805321712268066130019278
7661119590921642019893809525720106548586327886593
6153381827968230301952035301852968995773622599413
8912497217752834791315155748572424541506959508295
3311686172785588907509838175463746493931925506040
0927701671139009848824012858361603563707660104710
1819429555961989467678374494482553797747268471040
4753464620804668425906949129331367702898915210475
2162056966024058038150193511253382430035587640247
4964732639141992726042699227967823547816360093417
2164121992458631503028618297455570674983850549458
8586926995690927210797509302955321165344987202755
9602364806654991198818347977535663698074265425278
6255181841757467289097777279380008164706001614524
9192173217214772350141441973568548161361157352552
1334757418494684385233239073941433345477624168625
1898356948556209921922218427255025425688767179049
4601653466804988627232791786085784383827967976681
4541009538837863609506800642251252051173929848960
8412848862694560424196528502221066118630674427862
2039194945047123713786960956364371917287467764657
5739624138908658326459958133904780275900994657640
7895126946839835259570982582262052248940772671947
8268482601476990902640136394437455305068203496252
4517493996514314298091906592509372216964615157098
5838741059788595977297549893016175392846813826868
3868942774155991855925245953959431049972524680845
9872736446958486538367362226260991246080512438843
9045124413654976278079771569143599770012961608944
169486855584840635342207222582848864815845602850
来自:https://tieba.baidu.com/p/4417981635