来自codegolf.com的最短解决方案

有一个“ Roman to decimal "在 Code Golf 不久以前(嗯,实际上它还在运行,因为它们永远不会结束。)一个叫 eyepopslikeamosquito 他决定赢得所有四种语言(Perl、PHP、Python和Ruby)的冠军,他就是这样做的。他写了一个由四部分组成的精彩系列“ The golf course looks great, my swing feels good, I like my chances part II , part III , part IV )描述他在 Perl Monks .

以下是他的解决方案:

鲁比,53杆

n=1;$.+=n/2-n%n=10**(494254%C/9)%4999while C=getc;p$.

Perl,58个笔划

$\+=$z-2*$z%($z=10**(19&654115/ord)%1645)for<>=~/./g;print

$^T 在2011年的几秒钟内发生变化!)

$\+=$z-2*$z%($z=10**(7&$^T/ord)%1999)for<>=~/./g;print

PHP,70笔画

<?while(A<$c=fgetc(STDIN))$t+=$n-2*$n%$n=md5(o²Ûö¬Ñ.$c)%1858+1?><?=$t;

小说中的六个奇怪的人物 md5(..) 是 chr(111).chr(178).chr(219).chr(246).chr(172).chr(209)

巨蟒,78笔画

t=p=0
for r in raw_input():n=10**(205558%ord(r)%7)%9995;t+=n-2*p%n;p=n
print t

Python-94字符

I,V,X,L,C,D=1,5,10,50,100,500
M,R,r=D+D,vars(),lambda x:reduce(lambda T,x:T+R[x]-T%R[x]*2,x,0)

98

r=foldl(\t c->t+y c-t`mod`y c*2)0 --34
y x=f$lookup x$zip"IVXLCDM"[1,5,10,50,100,500,1000] --52
f(Just x)=x --12
  -- assumes correct input

哈斯克尔走近了。

import Data.Maybe --18
r=foldl(\t c->t+y c-t`mod`y c*2)0 --34
y x=fromJust$lookup x$zip"IVXLCDM"[1,5,10,50,100,500,1000] --59

总字节数= 111

如果我不需要从fromJust进口的话

收养 a response from Jon Skeet to a previously asked similar question :

r=f