# HG changeset patch # User HackBot # Date 1416000148 0 # Node ID 7d9cc92f0c8f52d775e8478b2df9676852525ae5 # Parent 35e6aa6965482b41bb91e5b9b7eb418f17a72b79 echo $\'#!/usr/bin/perl\\n\'\'$_=<>;sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$$t=$_;$t}k for s""\\$"..4e3;print eval(),$/\' > bin/fromroman && chmod a+x bin/fromroman diff -r 35e6aa696548 -r 7d9cc92f0c8f bin/fromroman --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/fromroman Fri Nov 14 21:22:28 2014 +0000 @@ -0,0 +1,2 @@ +#!/usr/bin/perl +$_=<>;sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$$t=$_;$t}k for s""\$"..4e3;print eval(),$/