tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Roman-numerals-Decode/PureBasic/roman-numerals-decode.purebasic
+++ b/Task/Roman-numerals-Decode/PureBasic/roman-numerals-decode.purebasic
@ -0,0 +1,43 @@
+Procedure romanDec(roman.s)
+  Protected i, n, lastval, arabic
+
+  For i = Len(roman) To 1 Step -1
+    Select UCase(Mid(roman, i, 1))
+      Case "M"
+        n = 1000
+      Case "D"
+        n = 500
+      Case "C"
+        n = 100
+      Case "L"
+        n = 50
+      Case "X"
+        n = 10
+      Case "V"
+        n = 5
+      Case "I"
+        n = 1
+      Default
+        n = 0
+    EndSelect
+    If (n < lastval)
+      arabic - n
+    Else
+      arabic + n
+    EndIf
+    lastval = n
+  Next
+
+  ProcedureReturn arabic
+EndProcedure
+
+If OpenConsole()
+  PrintN(Str(romanDec("MCMXCIX"))) ;1999
+  PrintN(Str(romanDec("MDCLXVI"))) ;1666
+  PrintN(Str(romanDec("XXV")))     ;25
+  PrintN(Str(romanDec("CMLIV")))   ;954
+  PrintN(Str(romanDec("MMXI")))    ;2011
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf