vakorol


Sat Aug 13 23:47:23 2016
perl
#!/usr/bin/perl -p
$n=<>;$_=/ |a/?chop&&$_ x$n:$_*$n
Sat Aug 13 23:30:35 2016
perl

-13
instead of
-15
#!/usr/bin/perl -ap0
($_)=sort@F
Sat Aug 13 23:17:51 2016
perl
#!/usr/bin/perl -p
%h=(b,strong,i,em,u,span,url,a,img,X);$p='=([^>]+)>([^<]+)';s|\[(/?)(\w+)|<$1$h{$2}|g;s|\]|>|g;s|a$p|a href="$1">$2|g;s|X$p</.+>|img src="$1" alt="$2">|g;s|<span|$& class=u|
Sat Aug 13 23:17:05 2016
perl

<strong>Hello World!</strong>
<a href="http://jagc.org/">JAGC</a>
<X src="http://jagc.org/images/logo_h.png" alt="JAGC">
instead of
<strong>Hello World!</strong>
<a href="http://jagc.org/">JAGC</a>
<img src="http://jagc.org/images/logo_h.png" alt="JAGC">
#!/usr/bin/perl -p
%h=(b,strong,i,em,u,span,url,a,img,X);$p='=([^>]+)>([^<]+)';s|\[(/?)(\w+)|<$1$h{$2}|g;s|\]|>|g;s|a$p|a href="$1">$2|g;s|X$p</.+>|X src="$1" alt="$2">|g;s|<span|$& class=u|
Sat Aug 13 04:12:52 2016
perl
#!/usr/bin/perl -pF"
$_=@F[1]
Sat Aug 13 04:09:46 2016
perl

print 
instead of
Hello, Python!
#!/usr/bin/perl -pF"
($_,)=@F
Sat Aug 13 01:27:00 2016
perl
#!/usr/bin/perl -ln0
/.$/;print$&x$_ for 1..$`
Sat Aug 13 00:44:41 2016
perl
#!/usr/bin/perl -p
$_=/ /?!push@a,$':pop@a
Sun Aug 7 23:07:02 2016
perl

1337
1337
13379
13379
instead of
7
3
9
3
#!/usr/bin/perl -nl
/\d/?$a.=$&:print$a
Sun Aug 7 23:04:04 2016
perl

add 1
add 3
add 3
add 7
7
3
add 9
9
3
instead of
7
3
9
3
#!/usr/bin/perl -pl
/\d/?$a.=$&:($_=chop$a)
Sun Aug 7 23:03:09 2016
perl

add 1
add 3
add 3
add 7


add 9
instead of
7
3
9
3
#!/usr/bin/perl -pl
/\d/?$a.=$&:$_=chop$a
Sun May 29 01:57:20 2016
perl
#!/usr/bin/perl -p
$_=/40/*2-/5/*13
Sun May 29 01:55:58 2016
perl
#!/usr/bin/perl -p
$_=/5/*-13+/40/*2
Wed Nov 18 02:18:34 2015
perl
#!/usr/bin/perl -n0F\n
sub w{my($s,$k)=@_;for(split//,$s){$b&&$b--&next;$$C=$c[$i+=/>/-/</]+=$_.1;/\./&&print chr$$C;$F[1]=~/./g,$c[$i]=ord$&if/,/;$k++;if(/\[/){ $s=~/.{$k}(.+?)\]/;w($1)while$$C;$k+=$b=length$1}}}w$F[0]
Wed Nov 18 02:14:40 2015
perl
#!/usr/bin/perl -n0F\n
sub w{my($s,$k)=@_;for(split//,$s){$b&&$b--&next;$$C=$c[$i+=/>/-/</]+=$_.1;/\./&&print chr$$C;$F[1]=~/./g,$c[$i]=ord$&if/,/;$k++;if(/\[/){ $s=~/.{$k}(.+?)\]/;w($1)while$$C;$k+=$b=length$1}}}w$F[0]
Sun Oct 25 00:11:39 2015
perl
#!/usr/bin/perl -ln
$,='';sub f{my($a,$r)=@_;@$a-$_||print@$a;for$c(0..$_-1){my($i,$b);for(@$a){$b=1,last if$c==$_||abs$c-$_==$r-$i++}!$b&&f($A=[@$a,$c],$r+1)&&return$A}}f([])
Sat Oct 24 21:16:53 2015
perl
#!/usr/bin/perl -ln
sub f{my($a,$r)=@_;scalar@$a==$_&&print join'',@$a;for$c(0..$_-1){my($i,$b);for(@$a){$b=1,last if$c==$_||abs($c-$_)==$r-$i++}f($A=[@$a,$c],$r+1)&&return$A if!$b}return}f([])
Sat Oct 24 02:43:11 2015
perl
#!/usr/bin/perl -pl
$_=/ /?/^(.*)(.+) \2\1$/?true:false:""
Fri Oct 23 01:13:05 2015
perl
#!/usr/bin/perl -pl
$_=$n++?/^(.*)(.+) \2\1$/?"true":"false":""
Fri Oct 23 01:08:53 2015
perl

true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
true
true
false
true
true
instead of
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
false
false
true
#!/usr/bin/perl -pl
$_=$n++?/(.*)(.+) \2\1/?"true":"false":""