Roman numerals/Decode: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,013: / Line 2,013: @@
 =={{header|EasyLang}}==
-<syntaxhighlight lang="text">rom_digs$[] = [ "M" "D" "C" "L" "X" "V" "I" ]
+<syntaxhighlight lang="text">
+func rom2int rom$ . val .
-rom_vals[] = [ 1000 500 100 50 10 5 1 ]
+  symbols$[] = [ "M" "D" "C" "L" "X" "V" "I" ]
-#
+  values[] = [ 1000 500 100 50 10 5 1 ]
-func rom2int rom_numb$ . val .
   val = 0
-  for dig$ in strchars rom_numb$
+  for dig$ in strchars rom$
-    for i range len rom_digs$[]
+    for i = 1 to len symbols$[]
-      if rom_digs$[i] = dig$
+      if symbols$[i] = dig$
-        v = rom_vals[i]
+        v = values[i]
       .
     .
     val += v
-    if old_v < v
+    if oldv < v
-      val -= 2 * old_v
+      val -= 2 * oldv
     .
-    old_v = v
+    oldv = v
   .
 .
@@ Line 2,036: / Line 2,036: @@
 print v
 call rom2int "MDCLXVI" v
-print v</syntaxhighlight>
+print v
+</syntaxhighlight>
 =={{header|ECL}}==