Add 1.15 to 1.19

Author: anabastos

1.2-ProceduresandtheProcessesTheyGenerate/ex-1.15/anabastos.clj

@@ -7,4 +7,4 @@
        (p (sine (/ angle 3.0)))))
 
 ; a) 7 Vezes
-; b) É logaritmico log3(n) pois p é chamado somente até quando a divisao do angulo esta acima de 0.1.
+; b) É logaritmico log3(n) pois p é chamado somente até quando a divisao do angulo esta acima de 0.1

1.2-ProceduresandtheProcessesTheyGenerate/ex-1.16/anabastos.clj

@@ -0,0 +1,7 @@
+(defn square [x] (* x x))
+
+(defn expt [b n a]
+   (cond (= n 0) a
+         (even? n) (square (expt b (/ n 2) a))
+         :else (expt b (- n 1) (* b a))))
+

1.2-ProceduresandtheProcessesTheyGenerate/ex-1.17/anabastos.clj

@@ -8,6 +8,6 @@
   (cond (= b 0) 0
         (= b 1) a
         (even? b) (double (fast-mult a (halve b)))
-        :else + a (fast-mult a (- b 1))))
+        :else + (a (fast-mult a (- b 1)))))
 
-; (fast-mult 4 2) 8
+; (fast-mult 4 2) 8

1.2-ProceduresandtheProcessesTheyGenerate/ex-1.18/anabastos.clj

@@ -0,0 +1,12 @@
+(defn double [x]
+  (* x 2))
+
+(defn halve [x]
+  (/ x 2))
+
+(defn square [x] (* x x))
+
+(defn fast-mult [a b c]
+  (cond (= b 0) c
+        (even? b) (fast-mult a (halve b) (double c))
+        (odd? b) (fast-mult a (- b 1) (+ a c))))

1.2-ProceduresandtheProcessesTheyGenerate/ex-1.19/anabastos.clj

@@ -0,0 +1,18 @@
+(defn square [x] (* x x))
+
+(defn fib-iter [a b p q count]
+  (cond (= count 0) b
+        (even? count) (fib-iter a
+                       b
+                       (+ (square p) (square q))
+                       (+ (square (* p q)) (square q))
+                       (/ count 2))
+        :else (fib-iter (+ (* b q) (* a q) (* a p))
+                        (+ (* b p) (* a q))
+                        p
+                        q
+                        (- count 1))))
+
+(defn fib [n]
+  (fib-iter 1 0 0 1 n))
+