From 75cf1b114022e2da9fb74296d7db12df74c07f95 Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Wed, 25 Aug 2010 23:49:27 +0530 Subject: [PATCH] minor formatting changes --- src/sicp/ex2_20.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sicp/ex2_20.clj b/src/sicp/ex2_20.clj index 079248f..590ff31 100644 --- 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)))))) -- 2.45.2