tasks a-s

Task/Roman-numerals-Encode/Clojure/roman-numerals-encode-1.clj

@@ -0,0 +1,7 @@
+(def arabic->roman
+  (partial clojure.pprint/cl-format nil "~@R"))
+
+(arabic->roman 147)
+;"CXXIII"
+(arabic->roman 99)
+;"XCIX"

Task/Roman-numerals-Encode/Clojure/roman-numerals-encode-2.clj

@@ -0,0 +1,31 @@
+(def arabic-roman-map
+     {1 "I", 5 "V",
+      10 "X", 50 "L",
+      100 "C", 500 "D",
+      1000 "M",
+      4 "IV", 9 "IX",
+      40 "XL", 90 "XC",
+      400 "CD", 900 "CM" })
+
+(def arabic-roman-map-sorted-keys
+     (sort (keys arabic-roman-map)))
+
+(defn find-value-in-coll
+  [coll k]
+  (let [aval (find coll k)]
+  (if (nil? aval) "" (val aval))))
+
+(defn to-roman
+  [result n]
+  (let
+      [closest-key-for-n (last (filter #(> n %) arabic-roman-map-sorted-keys))
+       roman-value-for-n (find-value-in-coll arabic-roman-map n)
+       roman-value-for-closet-to-n (find-value-in-coll arabic-roman-map
+						      closest-key-for-n)]
+       (if (or (<= n 0)(contains? arabic-roman-map n))
+	 (conj result roman-value-for-n)
+	 (recur (conj result roman-value-for-closet-to-n)
+		(- n closest-key-for-n)))))
+
+Usage: >(to-roman [] 1999)
+result: ["M" "CM" "XC" "IX"]

Task/Roman-numerals-Encode/Clojure/roman-numerals-encode-3.clj

@@ -0,0 +1,17 @@
+(defn a2r
+  [a]
+  (let [rv [1000 500 100 50 10 5 1]
+        rm (zipmap rv "MDCLXVI")
+        dv (->> rv (take-nth 2) next (#(interleave % %)))]
+    (loop [a a rv rv dv dv r nil]
+      (if (<= a 0)
+        r
+        (let [v (first rv)
+              d (or (first dv) 0)
+              l (- v d)]
+          (cond
+            (= a v) (str r (rm v))
+            (= a l) (str r (rm d) (rm v))
+            (and (> a v) (> a l)) (recur (- a v) rv dv (str r (rm v)))
+            (and (< a v) (< a l)) (recur a (rest rv) (rest dv) r)
+            :else (recur (- a l) (rest rv) (rest dv) (str r (rm d) (rm v)))))))))

Task/Roman-numerals-Encode/Clojure/roman-numerals-encode-4.clj

@@ -0,0 +1,5 @@
+(a2r 1666)
+"MDCLXVI"
+
+(map a2r [1000 1 389 45])
+("M" "I" "CCCLXXXIX" "XLV")