From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Sat, 10 Apr 2010 20:12:38 +0000 (+0530)
Subject: Added solution to 1.19.
X-Git-Url: https://git.rkrishnan.org/simplejson/components/%22file:/frontends/%3C?a=commitdiff_plain;h=b18a28271ccd7ec4467f219204c31a53976c368d;p=sicp.git

Added solution to 1.19.
---

diff --git a/chapter1/ch1_2.clj b/chapter1/ch1_2.clj
index 0cf3c55..13b99d1 100644
--- a/chapter1/ch1_2.clj
+++ b/chapter1/ch1_2.clj
@@ -536,3 +536,22 @@ TRACE t2916: |    => 6
 TRACE t2915: => 6
 6
 )
+
+;; exercise 1.19: fast fibonacci
+;; see the pdf of the notebook scan for the derivation of p' and q'
+(defn ffib [n]
+  (ffib-iter 1 0 0 1 n))
+
+(defn ffib-iter [a b p q count]
+  (cond (= count 0) b
+	(even? count)
+	(ffib-iter a
+		   b
+		   (+ (* p p) (* q q))
+		   (+ (* 2 p q) (* q q))
+		   (/ count 2))
+	:else (ffib-iter (+ (* b q) (* a q) (* a p))
+			 (+ (* b p) (* a q))
+			 p
+			 q
+			 (- count 1))))