June 2018 Update

Task/Roman-numerals-Encode/SETL/roman-numerals-encode.setl

@@ -0,0 +1,17 @@
+examples := [2008, 1666, 1990];
+
+for example in examples loop
+    print( roman_numeral(example) );
+end loop;
+
+proc roman_numeral( n );
+    R := [[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']];
+    roman := '';
+    for numeral in R loop
+        while n >= numeral(1) loop
+            n := n - numeral(1);
+            roman := roman + numeral(2);
+        end loop;
+    end loop;
+    return roman;
+end;