danieljabailey


Thu Mar 17 01:18:01 2016
perl

8
instead of
7
#!/usr/bin/perl -p
$_=($_-1)%9+1
Sun Nov 15 22:46:47 2015
perl
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;$k='$a{$d}';s/>/>+-/g;s/</<+-/g;s/\+/$k++;/g;s/-/$k--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr$k;/g;s/\[/while($k){/g;s/]/}/g;s/,/$k=ord\$i[\$c++];/;eval
Sun Nov 15 21:06:24 2015
perl
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;$k="\$a{\$d}";s/>/>+-/g;s/</<+-/g;s/\+/$k++;/g;s/-/$k--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr$k;/g;s/\[/while($k){/g;s/]/}/g;s/,/$k=ord\$i[\$c++];/;eval
Sun Nov 15 21:01:35 2015
perl
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;s/>/>+-/g;s/</<+-/g;s/\+/\$a{\$d}++;/g;s/-/\$a{\$d}--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr\$a{\$d};/g;s/\[/while(\$a{\$d}){/g;s/]/}/g;s/,/\$a{\$d}=ord\$i[\$c++];/;eval
Sun Nov 15 21:01:09 2015
perl
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;s/>/>+-/g;s/</<+-/g;s/\+/\$a{\$d}++;/g;s/-/\$a{\$d}--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr\$a{\$d};/g;s/\[/while(\$a{\$d}){/g;s/]/}/g;s/,/\$a{\$d}=ord\$i[\$c++];/g;eval
Sun Nov 15 20:14:17 2015
perl
#!/usr/bin/perl -p
$_=/24/?0:/5/?-13:2
Fri Oct 23 16:53:20 2015
perl
#!/usr/bin/perl -pl
$_=$n++?/^(.*)(.+) \2\1$/?true:false:""
Fri Oct 23 16:52:16 2015
perl
#!/usr/bin/perl -nl
print/^(.*)(.+) \2\1$/?true:"false"if$.-1
Fri Oct 23 01:43:06 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
false
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
$_=$.-1?/^(.*)(.+) \2\1/?"true":"false":""
Fri Oct 23 01:42:30 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
$_=$.-1?/(.*)(.+) \2\1/?"true":"false":""
Fri Oct 9 22:43:42 2015
perl
#!/usr/bin/perl -lp
$_=/(.+) (.+)/?($2x3)=~/$1$1/?"true":"false":""
Fri Oct 9 12:56:56 2015
perl
#!/usr/bin/perl -lp
$_=/(.+) (.+)/?($2 x3)=~/$1$1/?"true":"false":""
Fri Oct 9 12:52:03 2015
perl
#!/usr/bin/perl -p
$_=/(.+) (.+)/?($2 x3)=~/$1$1/?"true
":"false
":""
Fri Oct 9 12:50:47 2015
perl
#!/usr/bin/perl -p
$_=/(.+) (.+)/?"$2$2$2"=~/$1$1/?"true
":"false
":""
Thu Sep 24 23:46:06 2015
perl
#!/usr/bin/perl -p
$_=/(.+) (.+)/?length$1==length$2&&"$2$2"=~/$1/?"true
":"false
":""
Wed Sep 23 23:02:08 2015
perl
#!/usr/bin/perl -n
print length$1==length$2&&"$2$2"=~/$1/?"true
":"false
"if/(.+) (.+)/
Thu Feb 12 20:44:59 2015
perl
#!/usr/bin/perl -p
s/ /\n/g;s/"//g
Thu Feb 12 20:43:22 2015
perl

"1
23
34
234"
instead of
1
23
34
234
#!/usr/bin/perl -p
s/ /\n/g
Thu Feb 12 20:43:12 2015
php

s/ /\n/g
instead of
1
23
34
234
#!/usr/bin/php -p
s/ /\n/g
Thu Feb 12 20:36:14 2015
php
1
23
34
234