k-mx


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
~+