求 pi 到小數後 799 位! |
|
|
|
flyup
資深會員   發表：280 回覆：508 積分：385 註冊：2002-04-15 發送簡訊給我 |
某年 Obfuscated C Contest 佳作選錄: long a=10000,b,c=2800,d,e,f[2801],g;
main()
{for(;b-c;)f[b ]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e d/a),e=d%a)
for(b=c;d =f[b]*a,f[b]=d%--g,d/=g--,--b;d*=b);} (原程式第一行是 int a=10000,b,c....因為在 IBM PC 上 int 只有 2 byte,
所以我改成 long 以便各 platform 都能 run)
(本程式連可算出 pi 值連小數點前共 800 位) ----------------
局局棋盤步步新，
變化無常平常待。
人生相處平常心，
無憂無慮心事成。
----------------
|
|
davidchang
一般會員   發表：4 回覆：10 積分：2 註冊：2002-08-08 發送簡訊給我 |
發表時間：2002-12-22 23:25:17
IP:61.225.xxx.xxx 未訂閱
系統時間：2024-04-29 17:32:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |