Merge pull request exercism#24 from mhinz/exercise/roman-numerals

Add exercise: roman-numerals

Author: Katrina Owen

config.json

@@ -54,6 +54,11 @@
       "slug": "atbash-cipher",
       "difficulty": 1,
       "topics": []
+    },
+    {
+      "slug": "roman-numerals",
+      "difficulty": 1,
+      "topics": []
     }
   ],
   "deprecated": [],

exercises/roman-numerals/example.vim

@@ -0,0 +1,29 @@
+function! ToRoman(number) abort
+  let romandict = [
+        \ [1000, 'M' ],
+        \ [ 900, 'CM'],
+        \ [ 500, 'D' ],
+        \ [ 400, 'CD'],
+        \ [ 100, 'C' ],
+        \ [  90, 'XC'],
+        \ [  50, 'L' ],
+        \ [  40, 'XL'],
+        \ [  10, 'X' ],
+        \ [   9, 'IX'],
+        \ [   5, 'V' ],
+        \ [   4, 'IV'],
+        \ [   1, 'I' ],
+        \ ]
+
+  let num = a:number
+  let ret = ''
+
+  for [arabic, roman] in romandict
+    while num >= arabic
+      let ret .= roman
+      let num -= arabic
+    endwhile
+  endfor
+
+  return ret
+endfunction

exercises/roman-numerals/roman_numerals.vader

@@ -0,0 +1,53 @@
+Execute (1 is a single I):
+  AssertEqual 'I', ToRoman(1)
+
+Execute (2 is two I's):
+  AssertEqual 'II', ToRoman(2)
+
+Execute (2 is three I's):
+  AssertEqual 'III', ToRoman(3)
+
+Execute (4, being 5 - 1, is IV):
+  AssertEqual 'IV', ToRoman(4)
+
+Execute (5 is a single V):
+  AssertEqual 'V', ToRoman(5)
+
+Execute (6, being 5 + 1, is VI):
+  AssertEqual 'VI', ToRoman(6)
+
+Execute (9, being 10 - 1, is IX):
+  AssertEqual 'IX', ToRoman(9)
+
+Execute (20 is two X's):
+  AssertEqual 'XXVII', ToRoman(27)
+
+Execute (48 is not 50 - 2, but rather 40 + 8):
+  AssertEqual 'XLVIII', ToRoman(48)
+
+Execute (50 is a single L):
+  AssertEqual 'LIX', ToRoman(59)
+
+Execute (90, being 100 - 10, is XC):
+  AssertEqual 'XCIII', ToRoman(93)
+
+Execute (100 is a single C):
+  AssertEqual 'CXLI', ToRoman(141)
+
+Execute (60, being 50 + 10, is LX):
+  AssertEqual 'CLXIII', ToRoman(163)
+
+Execute (400, being 500 - 100, is CD):
+  AssertEqual 'CDII', ToRoman(402)
+
+Execute (500 is a single D):
+  AssertEqual 'DLXXV', ToRoman(575)
+
+Execute (900, being 1000 - 100, is CM):
+  AssertEqual 'CMXI', ToRoman(911)
+
+Execute (1000 is a single M):
+  AssertEqual 'MXXIV', ToRoman(1024)
+
+Execute (3000 is three M's):
+  AssertEqual 'MMM', ToRoman(3000)

exercises/roman-numerals/roman_numerals.vim

@@ -0,0 +1,14 @@
+"
+" Write a function to convert Arabic numbers to Roman numerals.
+"
+" Examples:
+"
+"   :echo ToRoman(1990)
+"   MCMXC
+"
+"   :echo ToRoman(2008)
+"   MMVIII
+"
+function! ToRoman(number) abort
+  " your code goes here
+endfunction