From ee1a91b8cab28dfa115992fc9e02751519c2c155 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Tue, 23 Mar 2010 00:46:58 +0530
Subject: [PATCH 1/1] first commit

---
 README          |  1 +
 ch1/square.clj  |  9 +++++++++
 misc/argue.clj  | 12 ++++++++++++
 misc/plural.clj |  5 +++++
 4 files changed, 27 insertions(+)
 create mode 100644 README
 create mode 100644 ch1/square.clj
 create mode 100644 misc/argue.clj
 create mode 100644 misc/plural.clj

diff --git a/README b/README
new file mode 100644
index 0000000..08828d8
--- /dev/null
+++ b/README
@@ -0,0 +1 @@
+This is the namespace for SICP examples, exercises and problems.
diff --git a/ch1/square.clj b/ch1/square.clj
new file mode 100644
index 0000000..5671487
--- /dev/null
+++ b/ch1/square.clj
@@ -0,0 +1,9 @@
+(ns sicp-clj.ch1)
+
+(defn square [x] (* x x))
+
+(defn sum-of-squares [x y]
+  (+ (square x) (square y)))
+
+(defn f [a]
+  (sum-of-squares (+ a 1) (* a 2)))
\ No newline at end of file
diff --git a/misc/argue.clj b/misc/argue.clj
new file mode 100644
index 0000000..f423b2f
--- /dev/null
+++ b/misc/argue.clj
@@ -0,0 +1,12 @@
+(ns sicp-clj)
+
+(defn argue [sentence]
+  (when-not (empty? sentence)
+    (concat (opposite (first sentence)) (argue (rest sentence)))))
+
+(defn opposite [word]
+  (cond (= word "like") "hate"
+	(= word "hate") "like"
+	(= word "wonderful") "terrible"
+	(= word "terrible") "wonderful"
+	:else word))
\ No newline at end of file
diff --git a/misc/plural.clj b/misc/plural.clj
new file mode 100644
index 0000000..6ded4e0
--- /dev/null
+++ b/misc/plural.clj
@@ -0,0 +1,5 @@
+;; from Brian Harvey's Spring 2008 lecture 01.
+(defn plural [wd]
+  (if (= (last wd) \y)
+    (apply str (concat (butlast wd) "ies"))
+    (apply str (concat wd "s"))))
\ No newline at end of file
-- 
2.45.2