From: Ramakrishnan Muthukrishnan Date: Thu, 27 May 2010 19:44:58 +0000 (+0530) Subject: making repeated-1 as private X-Git-Url: https://git.rkrishnan.org/pf/content/en/service/index.php?a=commitdiff_plain;h=e9f2db23b60626b1f5a95b8cadcdd774be7a4bbc;p=sicp.git making repeated-1 as private --- diff --git a/src/sicp/ex1_43.clj b/src/sicp/ex1_43.clj index c13f25b..5c8e7ea 100644 --- a/src/sicp/ex1_43.clj +++ b/src/sicp/ex1_43.clj @@ -4,7 +4,7 @@ [sicp ch1_3] [sicp ex1_42])) -(defn repeated-1 [f1 f2 m] +(defn- repeated-1 [f1 f2 m] (cond (= m 0) f1 (= m 1) f2 :else (repeated-1 f1 (compose f2 f1) (- m 1))))