Update all new Tasks

Task/Odd-word-problem/Clojure/odd-word-problem-1.clj

@@ -0,0 +1,26 @@
+(defn next-char []
+  (char (.read *in*)))
+
+(defn forward []
+  (let [ch (next-char)]
+    (print ch)
+    (if (Character/isLetter ch)
+      (forward)
+      (not= ch \.))))
+
+(defn backward []
+  (let [ch (next-char)]
+    (if (Character/isLetter ch)
+      (let [result (backward)]
+        (print ch)
+        result)
+      (fn [] (print ch) (not= ch \.)))) )
+
+(defn odd-word [s]
+  (with-in-str s
+    (loop [forward? true]
+      (when (if forward?
+              (forward)
+              ((backward)))
+        (recur (not forward?)))) )
+    (println))

Task/Odd-word-problem/Clojure/odd-word-problem-2.clj

@@ -0,0 +1,6 @@
+user=> (odd-word "what,is,the;meaning,of:life.")
+what,si,the;gninaem,of:efil.
+nil
+user=> (odd-word "we,are;not,in,kansas;any,more.")
+we,era;not,ni,kansas;yna,more.
+nil