k-mx



3
instead of
30
print`$^X -pMutf8 -C -E'y/三四五六七八九十/3-90/;s}0$}}}'`
print`$^X -pMutf8 -C -E'y/三四五六七八九十/3-90/;s/0\\B//'`
print`$^X -pMutf8 -C -E'y/三四五六七八九十/3-9/d;s/^3\$/30/'`

3
instead of
30
print`$^X -pMutf8 -C -E'y/三四五六七八九十/3-9/d'`

308
instead of
38
print`$^X -pMutf8 -C -E'y/三四五六七八九十/3-9/d;s/^3/30/'`
Tue Jun 27 12:12:37 2017
perl

0 7038 7038
instead of
test2
print "$( $> $<"
Sat Nov 5 19:23:16 2016
perl
#!/usr/bin/perl -pn
$_+=<>
Sat Nov 5 19:22:42 2016
perl

Can't emulate -e on #! line at ./code line 1.

#!/usr/bin/perl -pne
$_+=<>
Sat Nov 5 19:14:06 2016
perl

Can't emulate -e on #! line at ./code line 1.

#!/usr/bin/perl -pe
$_+=<>
Sat Nov 5 19:12:57 2016
perl

Can't emulate -e on #! line at ./code line 1.

#!/usr/bin/perl -pe
$_+=<>
Thu Oct 27 08:17:06 2016
ruby
x=l=0
$<.chars{|a|c='IVXLCDM'=~/#{a}/;c=5**(c%2)*10**(c/2);x+=c;c>l&&x-=l*2;l=c}
p x
Mon Aug 8 19:00:33 2016
perl

1
13
133
1337
7
3
139
9
3
instead of
7
3
9
3
#!/usr/bin/perl -nl
print/ /?$a.=$':chop$a
Mon Aug 8 18:55:35 2016
perl
#!/usr/bin/perl -nl
/ /?$a.=$':print chop$a
Sat Jul 30 22:33:03 2016
perl
#!/usr/bin/perl -nl
/\d/?$a.=$&:print chop$a
Sat Jul 30 22:32:45 2016
perl

7393
instead of
7
3
9
3
#!/usr/bin/perl -n
/\d/?$a.=$&:print chop$a
Mon Jul 25 21:15:28 2016
perl
#!/usr/bin/perl -p
1while s/(.)( -?\d+)((?2))/"$2$1$3"/ee
Mon Jul 25 21:11:14 2016
perl
#!/usr/bin/perl -p
1while s/(.)( -?\d+)((?2))/"$2$1 $3"/ee
Fri Apr 8 15:37:49 2016
pyth
+Qsw
Fri Apr 8 15:34:37 2016
golfscript
~+