From 580a47f400428a959d48ef6fa8938f43231b80de Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> Date: Thu, 27 May 2010 20:19:05 +0530 Subject: [PATCH] added a few tests --- src/sicp/ex1_42.clj | 16 ++++++++++++---- src/sicp/ex1_43.clj | 7 +++++++ 2 files changed, 19 insertions(+), 4 deletions(-) diff --git a/src/sicp/ex1_42.clj b/src/sicp/ex1_42.clj index 1c0eef8..b11ca23 100644 --- a/src/sicp/ex1_42.clj +++ b/src/sicp/ex1_42.clj @@ -6,9 +6,17 @@ (defn compose [f g] (fn [x] (f (g x)))) + +(deftest test-compose-square-of-inc-of-6 + (is (= ((compose square inc) 6) + 49))) + +(deftest test-compose-square-of-square-of-2 + (is (= ((compose square square) 2) + 16))) + (comment -((compose square inc) 6) -;;=> 49 -((compose square square) 2) -;;=> 16 +;; from repl do + (use 'sicp.ex1_42 :reload) + (run-tests 'sicp.ex1_42) ) \ No newline at end of file diff --git a/src/sicp/ex1_43.clj b/src/sicp/ex1_43.clj index f7cb7ff..c13f25b 100644 --- a/src/sicp/ex1_43.clj +++ b/src/sicp/ex1_43.clj @@ -12,3 +12,10 @@ (defn repeated [f n] (repeated-1 f (compose f f) (- n 1))) +(deftest test-repeated-square-twotimes-of-5 + (is (= ((repeated square 2) 5) + 625))) + +(deftest test-repeated-square-twotimes-of-2 + (is (= ((repeated square 2) 2) + 16))) -- 2.45.2