exercise 1.3 redone

diff --git a/chapter1/ch1_1.clj b/chapter1/ch1_1.clj
index b96191ba0e24d476ff783caee49d4df415cc7cb3..783e139473e63eea7aea18c3248d73accb0351ec 100644 (file)
--- a/chapter1/ch1_1.clj
+++ b/chapter1/ch1_1.clj
@@ -56,6 +56,17 @@
 (defn sum-of-sq-of-two-largest [a b c]
   (apply sum-of-squares (take 2 (sort3 a b c))))
 
+;; well, I cheated above. Let me use only the constructs introduced
+;; so far in the book. (follows after the sicp meetup #2 on 28/mar/2010.
+(defn sum-of-square-of-two-largest [a b c]
+  (if (> a b)
+    (if (> b c)
+      (sum-of-squares a b) ; a > b > c
+      (sum-of-squares a c))
+    (if (> a c)
+      (sum-of-squares b a)
+      (sum-of-squares b c))))
+
 ;; exercise 1.4: Observe that our model of evaluation allows for
 ;;               combinations whose operators are compound
 ;;               expressions. Use this observation to describe the