Data commit

Task/Roman-numerals-Encode/Objeck/roman-numerals-encode.objeck

@@ -0,0 +1,32 @@
+bundle Default {
+  class Roman {
+    nums: static : Int[];
+    rum : static : String[];
+
+    function : Init() ~ Nil {
+      nums := [1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1];
+      rum := ["M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"];
+    }
+
+    function : native : ToRoman(number : Int) ~ String {
+      result := "";
+
+      for(i :=0; i < nums->Size(); i += 1;) {
+        while(number >= nums[i]) {
+          result->Append(rum[i]);
+          number -= nums[i];
+        };
+      };
+
+      return result;
+    }
+
+    function : Main(args : String[]) ~ Nil {
+      Init();
+
+      ToRoman(1999)->PrintLine();
+      ToRoman(25)->PrintLine();
+      ToRoman(944)->PrintLine();
+    }
+  }
+}