Data commit

Task/Roman-numerals-Encode/Gambas/roman-numerals-encode.gambas

@@ -0,0 +1,25 @@
+Public Sub Main()
+
+  'Testing
+  Print "2009 = "; toRoman(2009)
+  Print "1666 = "; toRoman(1666)
+  Print "3888 = "; toRoman(3888)
+
+End
+
+Function toRoman(value As Integer) As String
+
+  Dim result As String
+  Dim arabic As Integer[] = [1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1]
+  Dim roman As String[] = ["M", "CM", "D", "CD", "C", "XC", "L" , "XL", "X", "IX", "V", "IV", "I"]
+
+
+  For i As Integer = 0 To arabic.Max
+    Do While value >= arabic[i]
+      result &= roman[i]
+      value -= arabic[i]
+    Loop
+  Next
+  Return result
+
+End Function