Added roman-numerals exercise.

config.json

@@ -16,7 +16,8 @@
       "robot-name",
       "rna-transcription",
       "atbash-cipher",
-      "raindrops"
+      "raindrops",
+      "roman-numerals"
    ],
   "deprecated": [
 

exercises/roman-numerals/example.el

@@ -0,0 +1,36 @@
+;;; roman-numerals.el --- roman-numerals Exercise (exercism)
+
+;;; Commentary:
+
+;;; Code:
+
+
+(defun to-roman (value)
+  (let ((decode '(("M"  . 1000)
+                  ("CM" . 900)
+                  ("D"  . 500)
+                  ("CD" . 400)
+                  ("C"  . 100)
+                  ("XC" .  90)
+                  ("L"  .  50)
+                  ("XL" .  40)
+                  ("X"  .  10)
+                  ("IX" .   9)
+                  ("V"  .   5)
+                  ("IV" .   4)
+                  ("I"  .   1)))
+        (roman nil))
+    (if (> value 3000)
+        (error "Value out of range"))
+    (while (not (eq value 0))
+      (let ((r (caar decode))
+            (d (cdar decode)))
+        (when (>= value d)
+          (setq roman (append roman (make-list (/ value d) r)))
+          (setq value (% value d)))
+        (setq decode (cdr decode))))
+    (apply 'concat roman)))
+
+
+(provide 'roman-numerals)
+;;; roman-numerals.el ends here

exercises/roman-numerals/roman-numerals-test.el

@@ -0,0 +1,30 @@
+;;; roman-numerals-test.el --- Tests for roman-numerals (exercism)
+
+;;; Commentary:
+
+;;; Code:
+
+(load-file "roman-numerals.el")
+
+(ert-deftest roman-numerals-test ()
+  (should (equal (to-roman 1) "I"))
+  (should (equal (to-roman 2) "II"))
+  (should (equal (to-roman 3) "III"))
+  (should (equal (to-roman 4) "IV"))
+  (should (equal (to-roman 5) "V"))
+  (should (equal (to-roman 6) "VI"))
+  (should (equal (to-roman 9) "IX"))
+  (should (equal (to-roman 27) "XXVII"))
+  (should (equal (to-roman 48) "XLVIII"))
+  (should (equal (to-roman 59) "LIX"))
+  (should (equal (to-roman 93) "XCIII"))
+  (should (equal (to-roman 141) "CXLI"))
+  (should (equal (to-roman 163) "CLXIII"))
+  (should (equal (to-roman 402) "CDII"))
+  (should (equal (to-roman 575) "DLXXV"))
+  (should (equal (to-roman 911) "CMXI"))
+  (should (equal (to-roman 1024) "MXXIV"))
+  (should (equal (to-roman 3000) "MMM")))
+
+(provide 'roman-numerals)
+;;; roman-numerals-test.el ends here

exercises/roman-numerals/roman-numerals.el

@@ -0,0 +1,10 @@
+;;; roman-numerals.el --- roman-numerals Exercise (exercism)
+
+;;; Commentary:
+
+;;; Code:
+
+
+
+(provide 'roman-numerals)
+;;; roman-numerals.el ends here