projects
/
sicp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f88e76d
)
making repeated-1 as private
author
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Thu, 27 May 2010 19:44:58 +0000
(
01:14
+0530)
committer
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Thu, 27 May 2010 19:44:58 +0000
(
01:14
+0530)
src/sicp/ex1_43.clj
patch
|
blob
|
history
diff --git
a/src/sicp/ex1_43.clj
b/src/sicp/ex1_43.clj
index c13f25bfbfc9ca3a36f38209e7c72b64548648d7..5c8e7ea93c36eb2029d09756b737bfdf01559786 100644
(file)
--- 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))))