Data commit

Task/Roman-numerals-Decode/Action-/roman-numerals-decode.action

@@ -0,0 +1,43 @@
+CARD FUNC DecodeRomanDigit(CHAR c)
+  IF c='I THEN RETURN (1)
+  ELSEIF c='V THEN RETURN (5)
+  ELSEIF c='X THEN RETURN (10)
+  ELSEIF c='L THEN RETURN (50)
+  ELSEIF c='C THEN RETURN (100)
+  ELSEIF c='D THEN RETURN (500)
+  ELSEIF c='M THEN RETURN (1000)
+  FI
+RETURN (0)
+
+CARD FUNC DecodeRomanNumber(CHAR ARRAY s)
+  CARD res,curr,prev
+  BYTE i
+
+  res=0 prev=0 i=s(0)
+  WHILE i>0
+  DO
+    curr=DecodeRomanDigit(s(i))
+    IF curr<prev THEN
+      res==-curr
+    ELSE
+      res==+curr
+    FI
+    prev=curr
+    i==-1
+  OD
+RETURN (res)
+
+PROC Test(CHAR ARRAY s)
+  CARD n
+
+  n=DecodeRomanNumber(s)
+  PrintF("%S=%U%E",s,n)
+RETURN
+
+PROC Main()
+  Test("MCMXC")
+  Test("MMVIII")
+  Test("MDCLXVI")
+  Test("MMMDCCCLXXXVIII")
+  Test("MMMCMXCIX")
+RETURN