September Morn Update

Task/Roman-numerals-Encode/JavaScript/roman-numerals-encode-4.js

@@ -5,7 +5,7 @@
     const roman = n =>
         concat(snd(mapAccumL((balance, [k, v]) => {
             const [q, r] = quotRem(balance, v);
-            return [r, q > 0 ? concat(replicate(q, k)) : ''];
+            return [r, q > 0 ? k.repeat(q) : ''];
         }, n, [
             ['M', 1000],
             ['CM', 900],
@@ -49,12 +49,6 @@
     // quotRem :: Integral a => a -> a -> (a, a)
     const quotRem = (m, n) => [Math.floor(m / n), m % n];
 
-    // replicate :: Int -> a -> [a]
-    const replicate = (n, x) =>
-        Array.from({
-            length: n
-        }, () => x);
-
     // show :: a -> String
     const show = (...x) =>
         JSON.stringify.apply(

Task/Roman-numerals-Encode/JavaScript/roman-numerals-encode-6.js

@@ -0,0 +1,18 @@
+function toRoman(num) {
+  return 'I'
+    .repeat(num)
+    .replace(/IIIII/g, 'V')
+    .replace(/VV/g, 'X')
+    .replace(/XXXXX/g, 'L')
+    .replace(/LL/g, 'C')
+    .replace(/CCCCC/g, 'D')
+    .replace(/DD/g, 'M')
+    .replace(/VIIII/g, 'IX')
+    .replace(/LXXXX/g, 'XC')
+    .replace(/XXXX/g, 'XL')
+    .replace(/DCCCC/g, 'CM')
+    .replace(/CCCC/g, 'CD')
+    .replace(/IIII/g, 'IV');
+}
+
+console.log(toRoman(1666));

Task/Roman-numerals-Encode/JavaScript/roman-numerals-encode-7.js

@@ -0,0 +1 @@
+MDCLXVI