Mercurial > repo
changeset 12420:00ccb2fe8c08 draft
<wib_jonas> python3 -cn="/hackenv/bin/fromroman";s=open(n).read();o=s.replace(\'{(sh\',\'{uc((sh\').replace(\'0]}\',\'0])}\');print(o);open(n,"w").write(o);print("write successful");
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Fri, 10 Sep 2021 11:38:50 +0100 |
| parents | b45b6d4a476e |
| children | 62c19dc0cc7c |
| files | bin/fromroman |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/fromroman Sun Sep 05 19:40:26 2021 +0100 +++ b/bin/fromroman Fri Sep 10 11:38:50 2021 +0100 @@ -1,2 +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;$r{$t}=$_;$t}k for s""\$"..4e3;print $r{(shift=~/(\w+)/)[0]},$/ +sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$r{$t}=$_;$t}k for s""\$"..4e3;print $r{uc((shift=~/(\w+)/)[0])},$/