SICP : Ex1.38 : Concurrent Clean

積み残しの問題がいくつかあるので、順番に片付けていきます。
Ex1.38 オイラー展開で自然対数の底 e を求める問題。

cont_frac n d j = cont_frac n d 0
where
	cont_frac n d k
		| k == j
			= 0.0
			= (n k) / ((d k) + (cont_frac n d (k+1)))

Start
	= 2.0 + cont_frac n d 10000
where
	n k = 1.0
	d k
		| k rem 3 == 1
			= a_n!!(k/3)
			= 1.0
	a_n = [2.0,4.0..]

ところでオイラー展開ってなんだ？
http://njet.oops.jp/mt/archives/2006/01/e_1.html ← これらしい。
オイラーの公式というのもある。

e^(iπ) ＝ −１

証明はこちら → http://ths-lemma.blog.ocn.ne.jp/1220/2005/12/euler__e3ab.html