結城浩のSICP日記 RSSフィード

2006-05-17

πの計算 πの計算 - 結城浩のSICP日記 を含むブックマーク

何となく、

\displaystyle \sum_{k=1}^{\infty} \frac{1}{k^2} = \frac{\pi^2}{6}

を使って\piの計算をしたくなって。

(let loop ((sum 0) (k 1))
  (print (sqrt (* 6 sum)))
  (loop
    (+ sum (/ 1 (* k k)))
    (+ k 1)))

実行結果です。CTRL+Cで止まります。

0.0
2.449489742783178
2.7386127875258306
2.8577380332470415
2.9226129861250305
2.9633877010385707
2.9913764947484185
3.011773947846214
3.027297856657843
3.0395075895610533
(中略)
3.140629389849429
3.140630360540764
3.140631329277716
3.140632296066182
3.140633260912034
3.140634223821122
3.140635184799271
3.140636143852284
3.14063710098594
(中略)
3.1415652299053893
3.14156523069292
3.1415652314804063
3.1415652322678467
3.141565233055242
3.1415652338425923
3.1415652346298977
(後略)
トラックバック - http://sicp.g.hatena.ne.jp/hyuki/20060517