厳密に正の整数を指定すると、加算ルールのみを使用して、可能な限り短いローマ数字を返します。出力はMDCLXVI、その順序の各文字のゼロ個以上で構成する必要があります。14したがって、番号はXIIIIでなくでなければなりませんXIV。

文字の数値は、M= 1000、D= 500、C= 100、L= 50、X= 10、V= 5、I= 1です。

例

3 → III

4 → IIII

9 → VIIII

42 → XXXXII

796 → DCCLXXXXVI

2017 → MMXVII

16807 → MMMMMMMMMMMMMMMMDCCCVII

平易な英語、1059 1025 678 641 451 399バイト

エラートラップを削除して34バイトを節約しました。その後、ゴルフで384バイトを節約しました。次に、分割操作と追加操作（「z」）を組み合わせて新しい操作（「p」）にすることにより、190バイトを節約しました。その後、ゴルフで52バイト節約しました。

A s is a string.
To p a r remainder a s a x string a n number:
If the x is "", exit.
Divide the r by the n giving a q quotient and the r.
Fill a t s with the x's first's target given the q.
Append the t to the s.
To convert a r number to a s:
p the r the s "M" 1000.
p the r the s "D" 500.
p the r the s "C" 100.
p the r the s "L" 50.
p the r the s "X" 10.
p the r the s "V" 5.
p the r the s "I" 1.

これは、最終コードの未使用バージョンと、負の数のエラートラップです。

A roman numeral is a string.

To process a remainder given a roman numeral and a letter string is a number:
  If the letter is "", exit.
  Divide the remainder by the number giving a quotient and the remainder.
  Fill a temp string with the letter's first's target given the quotient.
  Append the temp string to the roman numeral.

To convert a number to a roman numeral:
  If the number is negative, exit.
  Put the number in a remainder.
  Process the remainder given the roman numeral and "M" is 1000.
  Process the remainder given the roman numeral and "D" is  500.
  Process the remainder given the roman numeral and "C" is  100.
  Process the remainder given the roman numeral and "L" is   50.
  Process the remainder given the roman numeral and "X" is   10.
  Process the remainder given the roman numeral and "V" is    5.
  Process the remainder given the roman numeral and "I" is    1.

APL（Dyalog）、25 22バイト

'MDCLXVI'/⍨(0,6⍴2 5)∘⊤

オンラインでお試しください！

網膜、57 42バイト

単項に変換してから、Isの束をより高い宗派で順番に欲張りに置き換えます。

.*
$*I
I{5}
V
VV
X
X{5}
L
LL
C
C{5}
D
DD
M

オンラインで試す

_{Martinのおかげで15バイト節約}

Python 2、64バイト

f=lambda n,d=5,r='IVXLCD':r and f(n/d,7-d,r[1:])+n%d*r[0]or'M'*n

オンラインでお試しください！

貪欲に最大の部分を取り、最初から出力文字列を作成するのではなく、最後から出力文字列を作成します。例えば、多数Iのでありn%5、その後の数Vのであるn/5%2、というように。これは、5と2が交互に連続する比率の混合ベース変換です。

これは反復的な同等物です：

Python 2、68バイト

n=input();s='';d=5
for c in'IVXLCD':s=n%d*c+s;n/=d;d^=7
print'M'*n+s

オンラインでお試しください！

M何より大きな数字がありませんようにそれらの任意の数が存在する可能性があるため、別々に処理することの必要性。そのため、他の場所の値が割り当てられた後、残りの値はに変換されMます。

比較のために、貪欲な戦略（69バイト）：

Python 2、69バイト

f=lambda n,d=1000,r='MDCLXVI':r and n/d*r[0]+f(n%d,d/(d%3*3-1),r[1:])

オンラインでお試しください！

現在の数字の値をd2または5で除算して、次の数字を生成します。の値は、d%3どちらかd%3==1を2示しています。およびの場合d%3==2、5で除算します。

Mathematica、81バイト

Table@@@Thread@{r=Characters@"MDCLXVI",#~NumberDecompose~FromRomanNumeral@r}<>""&

値を明示的に使用し、対応する数字を導出すると、1バイト長くなります。

Table@@@Thread@{RomanNumeral[n={1000,500,100,50,10,5,1}],#~NumberDecompose~n}<>""&

エクセル、236の 193 161バイト

@ BradCのおかげで43バイト節約

この時点で、答えは本当に@ BradCに完全に属します。さらに32バイトが保存されました。

=REPT("M",A1/1E3)&REPT("D",MOD(A1,1E3)/500)&REPT("C",MOD(A1,500)/100)&REPT("L",MOD(A1,100)/50)&REPT("X",MOD(A1,50)/10)&REPT("V",MOD(A1,10)/5)&REPT("I",MOD(A1,5))

フォーマット済み：

=REPT("M",A1/1E3)
    &REPT("D",MOD(A1,1E3)/500)
    &REPT("C",MOD(A1,500)/100)
    &REPT("L",MOD(A1,100)/50)
    &REPT("X",MOD(A1,50)/10)
    &REPT("V",MOD(A1,10)/5)
    &REPT("I",MOD(A1,5))

Perl 5、66バイト

65バイトのコード+ -pフラグ。

$s=1e3;for$@(MDCLXVI=~/./g){$\.=$@x($_/$s);$_%=$s;$s/=--$|?2:5}}{

オンラインでお試しください！

バイトカウントを変更せずMDCLXVI=~/./gに、M,D,C,L,X,V,I; に置き換えることができます。と--$|?2:5によって$|--*3+2。

はるかに長い（99バイト）、次のものがあります。

$_=M x($_/1e3).D x($_%1e3/500).C x($_%500/100).L x($_%100/50).X x($_%50/10).V x($_%10/5).I x($_%5)

CJam、35 28バイト

マーティン・エンダーのおかげで-7バイト

q~{5md\2md\}3*]W%"MDCLXVI".*

オンラインでお試しください！

説明

q~         e# Read and eval input (push the input as an integer).
{          e# Open a block:
 5md\      e#  Divmod the top value by 5, and bring the quotient to the top.
 2md\      e#  Divmod that by 2, and bring the quotient to the top.
}3*        e# Run this block 3 times.
]W%        e# Wrap the stack in an array and reverse it. Now we've performed the mixed-base
           e# conversion.
"MDCLXVI"  e# Push this string.
.*         e# Element-wise repetition of each character by the numbers in the other array.
           e# Implicitly join and print.

C＃、127バイト

f=n=>n>999?"M"+f(n-1000):n>499?"D"+f(n-500):n>99?"C"+f(n-100):n>49?"L"+f(n-50):n>9?"X"+f(n-10):n>4?"V"+f(n-5):n>0?"I"+f(n-1):""

再帰を使用した純粋にハードコードされた三項ステートメント。

フル/フォーマット済みバージョン：

using System;

class P
{
    static void Main()
    {
        Func<int, string> f = null;
        f = n => n > 999 ? "M" + f(n - 1000)
                         : n > 499 ? "D" + f(n - 500)
                                   : n > 99 ? "C" + f(n - 100)
                                            : n > 49 ? "L" + f(n - 50)
                                                     : n > 9 ? "X" + f(n - 10)
                                                             : n > 4 ? "V" + f(n - 5)
                                                                     : n > 0 ? "I" + f(n - 1)
                                                                             : "";

        Console.WriteLine(f(3));
        Console.WriteLine(f(4));
        Console.WriteLine(f(42));
        Console.WriteLine(f(796));
        Console.WriteLine(f(2017));
        Console.WriteLine(f(16807));

        Console.ReadLine();
    }
}

05AB1E、29 26 25バイト

¸5n3×Rvćy‰ì}"MDCLXVI"Ss×J

オンラインでお試しください！

説明

¸                           # wrap input in a list
 5n                         # push 5**2
   3×                       # repeat it 3 times
     Rv                     # for each digit y in its reverse
       ć                    # extract the head of the list 
                            # (div result of the previous iteration, initially input)
        y‰                  # divmod with y
          ì                 # prepend to the list
           }                # end loop
            "MDCLXVI"S      # push a list of roman numerals
                      s×    # repeat each a number of times corresponding to the result
                            # of the modulus operations
                        J   # join to string

JavaScript（ES6）、81 75 69バイト

@JörgHülsermannの回答を移植してくれた@Neilのおかげで6バイト節約

@Shaggyのおかげで6バイト節約

n=>'MDCLXVI'.replace(/./g,(c,i)=>c.repeat(n/a,n%=a,a/=i%2?5:‌​2),a=1e3)

テストケース：

f=
n=>'MDCLXVI'.replace(/./g,(c,i)=>c.repeat(n/a,n%=a,a/=i%2?5:‌​2),a=1e3)

const testCases = [3, 4, 42, 796, 2017, 16807]
testCases.forEach(testCase => console.log(f(testCase)))

///、50バイト

/1/I//IIIII/V//VV/X//XXXXX/L//LL/C//CCCCC/D//DD/M/

オンラインでお試しください！

入力を単項で受け取り、入力用にTIOのフッターフィールドを（ab）使用しているため、出力の前に改行が付きます。

Pythonの3、100 97 96 94 93の91の 90バイト

• 保存された4 + 2バイト：の使用def; デフォルトパラメータとしての配列は、インデントスペースを減らしました。不要な変数宣言が削除されました
• @shooqieは1バイトのa%=速記を保存しました
• 2バイト節約：再配置され、中括弧(a//i)が削除されました
• @Wondercricketは1バイトを節約しました。デフォルトのパラメーターから、[]インデント1つ分のコストで削除された関数内に配列を移動し、1バイトを節約しました。

def f(a):
 b=1000,500,100,50,10,5,1
 for i in b:print(end=a//i*'MDCLXVI'[b.index(i)]);a%=i

オンラインでお試しください！

Cubix、69 74 80バイト

/.UI,..N&..0\0&/52"IVXLCDM"U,r%ws;rr3tu;pw..u;qrUosv!s.u\psq,!@Us(0;U

オンラインでお試しください！

        / . U I
        , . . N
        & . . 0
        \ 0 & /
5 2 " I V X L C D M " U , r % w
s ; r r 3 t u ; p w . . u ; q r
U o s v ! s . u \ p s q , ! @ U
s ( 0 ; U . . . . . . . . . . .
        . . . .
        . . . .
        . . . .
        . . . .

実行中

私はそれをもう少し圧縮することができましたが、特に上面には厄介なノーオペレーションがまだあります。

• 52"IVXLCDM"U必要な除数と文字をスタックに配置します。5と2はdiv / mod値を減らすために使用され、文字は使用後に破棄されます。
• UIN0/&0\&,/Uuが上面に戻り、入力を取得して1000をスタックにプッシュするための長いツアーを開始します。最初の分割が行われr、次のスニペットにuターンします。これは、節約するために検討していた領域でした。
• ,r%ws;rrdivmodループの開始。整数除算、結果をmodで回転させ、スタックのトップを再配置して、入力、現在の除数、除算結果を減らします。
• 3tus 現在のキャラクターを一番上に持ってきて、除算結果と入れ替えます。
• !vsoUs(0;Uこれが印刷ループです。divの結果が0を超えている間、文字出力とスワップし、スワップバックし、デクリメントし、0をプッシュしてドロップします。0の場合、ポップスタック（除算結果を削除）およびキューブの周囲にリダイレクトします。
• \u;pwpsq,!@Urq;u少しのリダイレクトで、これはスタックからキャラクターを削除し、5と2を一番上に持ってきて、それらを交換し、1つを押し下げます。残りは除数を減らすために使用されます。0になった場合は停止します。それ以外の場合は、5または2を下に押して、ループに入ります。

Mathematica、130バイト

(f=#~NumberDecompose~{1000,500,100,50,10,5,1};""<>{Flatten@Table[Table[{"M","D","C","L","X","V","I"}[[i]],f[[i]]],{i,Length@f}]})&

パイソン2、109の 90バイト

lambda n,r=[1000,500,100,50,10,5,1]:''.join(n%a/b*c for a,b,c in zip([n+1]+r,r,'MDCLXVI'))

オンラインでお試しください！

PHP、70バイト

for($r=1e3;$a=&$argn;)$a/$r<1?$r/=++$i%2?2:5:$a-=$r*print MDCLXVI[$i];

オンラインでお試しください！

T-SQL、164バイト

SELECT REPLICATE('M',n/1000)+IIF(n%1000>499,'D','')
      +REPLICATE('C',n%500/100)+IIF(n%100>49,'L','')
      +REPLICATE('X',n%50/10)+IIF(n%10>4,'V','')
      +REPLICATE('I',n%5)
FROM t

読みやすくするためだけに改行が追加されています。

このバージョンはかなり長くなります（230文字）が、より「SQLに似た」感じがします。

DECLARE @ INT,@r varchar(99)=''SELECT @=n FROM t
SELECT'I's,1v INTO m
INSERT m VALUES('V',5),('X',10),('L',50),('C',100),('D',500),('M',1000)
L:
    SELECT @-=v,@r+=s 
    FROM m WHERE v=(SELECT MAX(v)FROM m WHERE v<=@)
IF @>0GOTO L
SELECT @r

すべてのchar-valueマッピングを含むテーブルmを作成し、最大値<=数値を見つけてループし、一致する文字を連結します。

Japt、34バイト

"IVXLCD"£%(U/=Y=v *3+2Y)îXÃw i'MpU

オンラインでテストしてください！

"IVXLCD"£    %(U/=Y=v  *3+2Y )îXÃ w i'MpU
"IVXLCD"mXY{U%(U/=Y=Yv *3+2,Y)îX} w i'MpU : Ungolfed
                                          : Implicit: U = input number
"IVXLCD"mXY{                    }         : Map each char X and its index Y in this string to:
                  Y=Yv *3+2               :   Set Y to 5 for even indexes, 2 for odd.
               U/=                        :   Divide U by this amount.
            U%(            ,Y)            :   Modulate the old value of U by 5.
                              îX          :   Repeat the character that many times.
                                          : This returns e.g. "IIVCCCD" for 16807.
                                  w       : Reverse the entire string.
                                    i'MpU : Prepend U copies of 'M' (remember U is now the input / 1000).
                                          : Implicit: output result of last expression

JavaScript（ES6）、65バイト

再帰関数。

f=(n,a=(i=0,1e3))=>n?a>n?f(n,a/=i++&1?5:2):'MDCLXVI'[i]+f(n-a):''

どうやって？

2番目の再帰呼び出しはf(n-a)実際に必要ですf(n-a,a)。2番目のパラメータを省略することによって、aおよびi（それぞれ1000と0に）再初期化されるたびに、新しいローマ数字は、最終結果に追加されます。これにより、必要以上の再帰が発生しますが、関数の結果は変わらず、2バイト節約されます。

テストケース

f=(n,a=(i=0,1e3))=>n?a>n?f(n,a/=i++&1?5:2):'MDCLXVI'[i]+f(n-a):''

console.log(f(3))
console.log(f(4))
console.log(f(9))
console.log(f(42))
console.log(f(796))
console.log(f(2017))
console.log(f(16807))

J、26 23バイト

Adámのおかげで3バイト節約されました。

'MDCLXVI'#~(_,6$2 5)&#:

オンラインでお試しください！

APLの回答と同様に、基本的に同じことを答えます。

'MDCLXVI'#~(_,6$2 5)&#:
           (       )&#:   mixed base conversion from decimal
              6$2 5       2 5 2 5 2 5
            _,            infinity 2 5 2 5 2 5
                          this gives us e.g. `0 0 0 0 1 0 4` for input `14`
'MDCLXVI'#~               shape each according to the number of times on the right
                          this is greedy roman numeral base conversion

バッチ、164バイト

@set/pn=
@set s=
@for %%a in (1000.M 500.D 100.C 50.L 10.X 5.V 1.I)do @call:c %%~na %%~xa
@echo %s:.=%
@exit/b
:c
@if %n% geq %1 set s=%s%%2&set/an-=%1&goto c

STDINで入力を受け取ります。

Oracle SQL、456バイト

select listagg((select listagg(l)within group(order by 1)from dual start with trunc((n-nvl(n-mod(n,p),0))/v)>0 connect by level<=trunc((n-nvl(n-mod(n,p),0))/v)))within group(order by v desc)from (select 2849n from dual)cross join(select 1000v,null p,'m'l from dual union select 500,1000,'d'from dual union select 100,500,'c'from dual union select 50,100,'l'from dual union select 10,50,'x'from dual union select 5,10,'v'from dual union select 1,5,'i'from dual)

出力：

mmdcccxxxxviiii

入力番号（2849）が含まれているため、行の実際のサイズは460バイトです。

ゴルフをしていない：

select listagg(
            (select listagg(l, '') within group(order by 1) 
             from dual 
             start with trunc((n-nvl(p*trunc(n/p),0))/v) > 0 
             connect by level <= trunc((n-nvl(p*trunc(n/p),0))/v) )
        ) within group(order by v desc)
from (select 2348 n
    from dual
) cross join (
    select 1000v, null p, 'm' l from dual union 
    select 500, 1000, 'd' from dual union
    select 100, 500, 'c' from dual union
    select 50, 100, 'l' from dual union
    select 10, 50, 'x' from dual union
    select 5, 10, 'v' from dual union
    select 1, 5, 'i' from dual     
)

仕組み：より高い値の1（Mの無限大）で到達できる最大数を計算し、現在の文字の値とその結果の間で整数除算を行うことにより、必要な各文字の数を計算します。

たとえば、2348、何C秒必要ですか？trunc((2348-mod(2348,500))/100)= 3。

Then, I listagg that letter together 3 times (exploiting CONNECT BY to generate the 3 rows I need). Finally, I listagg everything together.

Kinda bulky, but most of it is the select from duals in the conversion table and I can't really do much about that...

Java (OpenJDK 8), 119 118 bytes

n->{String s="";for(int v[]={1,5,10,50,100,500,1000},i=7;i-->0;)for(;n>=v[i];n-=v[i])s+="IVXLCDM".charAt(i);return s;}

Try it online!

Saved a byte thanks to @TheLethalCoder

Charcoal, 61 50 46 bytes

ＮνＡ⁰χＷφ«Ｗ¬‹νφ«§MDCLXVIχＡ⁻νφν»Ａ⁺¹χχＡ÷φ⎇﹪χ²¦²¦⁵φ

Try it online!

Explanation:

Ｎν                   Take input as number and assign it to ν
Ａ⁰χ                  Let χ=0
Ｗφ«                  While φ>0 (φ has a predefined value of 1000)
    Ｗ¬‹νφ«               While v>=φ 
        §MDCLXVIχ             Take the char from string "MDCLXVI" at position χ
        Ａ⁻νφν»               Let ν=ν-φ
    Ａ⁺¹χχ                Increment χ
    Ａ÷φ⎇﹪χ²¦²¦⁵φ        If χ is odd, divide φ by 5, else divide φ by 2

• 4 bytes saved thanks to Neil, while I am still trying to figure out how to proceed with the second part of his comment.

C++, 272 Bytes

#include <cstdio>
#include <map>
std::map<int,char> m = {{1000,'M'},{500,'D'},{100,'C'},{50,'L'},{10,'X'},{5,'V'},{1,'I'}};
int main(){unsigned long x;scanf("%d",&x);for(auto i=m.rbegin();i!=m.rend();++i)while(x>=i->first){printf("%c", i->second);x=x-i->first;}return 0;}

C, 183 Bytes

#include <stdio.h>
int v[]={1000,500,100,50,10,5,1};
char*c="MDCLXVI";
int main(){int x;scanf("%d",&x);for(int i=0;i<sizeof v/sizeof(int);i++)for(;x>=v[i];x-=v[i])putc(c[i],stdout);}

Same algorithm as before, just using plain c arrays instead of an std::map, partially inspired by @xnor's answer and using a string to store the letters.

Common Lisp, 113 bytes

This is an anonymous function, returning the result as a string.

(lambda(value)(setf(values a b)(floor v 1000))(concatenate 'string(format()"~v,,,v<~>"a #\M)(format nil"~@:r"b)))

Ungolfed, with descriptive variable names and comments:

(defun format-roman (value)
  ;; Get "value integer-divided by 1000" and "value mod 1000"
  (setf (values n_thousands remainder) (floor value 1000))
  (concatenate 'string
               ;; Pad the empty string n_thousands times, using "M" as the 
               ;; padding character
               (format () "~v,,,v<~>" n_thousands #\M)
               ;; Format the remainder using "old-style" Roman numerals, i.e. 
               ;; numerals with "IIII" instead of "IV"
               (format nil "~@:r" remainder)))

CL has built-in Roman numeral formatter. Sadly it doesn't work for numbers larger than 3999.

Charcoal, 34 bytes

ＮςＡ²ξＦMDCLXVI«×ι÷ςφＡ﹪ςφςＡ÷φξφＡ÷χξξ

Originally based on @CarlosAlego's answer. A port of @xnor's Python solution is also 34 bytes:

ＮθＡ⁵ξＦIVXLCD«←×ι﹪θξＡ÷θξθＡ÷χξξ»←×Mθ

Edit: A port of @xnor's other Python solution turns out to be 33 bytes!

ＮθＦMDCLXVI«×ι÷θφＡ﹪θφθＡ÷φ⁺׳﹪φ³±¹φ

Try it online! Link is to verbose version of code. Note that I've used ⁺׳﹪φ³±¹ instead of ⁻׳﹪φ³¦¹ because the deverbosifier is currently failing to insert the separator.