March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Roman-numerals-Encode/MUMPS/roman-numerals-encode-1.mumps
+++ b/Task/Roman-numerals-Encode/MUMPS/roman-numerals-encode-1.mumps
--- a/Task/Roman-numerals-Encode/MUMPS/roman-numerals-encode-2.mumps
+++ b/Task/Roman-numerals-Encode/MUMPS/roman-numerals-encode-2.mumps
@ -0,0 +1,11 @@
+TOROMAN(n)
+    ;return empty string if input parameter 'n' is not in 1-3999
+    Quit:(n'?1.4N)!(n'<4000)!'n ""
+    New r  Set r=""
+    New p  Set p=$Length(n)
+    New j,x
+    For j=1:1:p  Do
+    . Set x=$Piece("~I~II~III~IV~V~VI~VII~VIII~IX","~",$Extract(n,j)+1)
+    . Set x=$Translate(x,"IVX",$Piece("IVX~XLC~CDM~M","~",p-j+1))
+    . Set r=r_x
+    Quit r