projects
/
sicp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3a27225
)
minor formatting changes
author
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Wed, 25 Aug 2010 18:19:27 +0000
(23:49 +0530)
committer
Ramakrishnan Muthukrishnan
<vu3rdd@gmail.com>
Wed, 25 Aug 2010 18:19:27 +0000
(23:49 +0530)
src/sicp/ex2_20.clj
patch
|
blob
|
history
diff --git
a/src/sicp/ex2_20.clj
b/src/sicp/ex2_20.clj
index 079248f87b6b3ebd3620d6fef4e73fe59ad240a4..590ff31b8c93a3bf289c95a97a43df14e4926027 100644
(file)
--- a/
src/sicp/ex2_20.clj
+++ b/
src/sicp/ex2_20.clj
@@
-14,7
+14,7
@@
(if (empty? xs)
(reverse result)
(let [a (first xs)
- t (pred a)]
+
t (pred a)]
(if t
(calc-parity pred (rest xs) (cons a result))
(calc-parity pred (rest xs) result)))))
@@
-28,7
+28,7
@@
(if (empty? xs)
nil
(let [a (first xs)
- t (pred a)]
+
t (pred a)]
(if t
(cons a (calc-parity-3 pred (rest xs)))
(calc-parity-3 pred (rest xs))))))