gabrielmad


Fri Sep 26 01:40:54 2014
perl

5.73147844013817e+20
instead of
573147844013817084101
$a=$b=1;$b+=$a,$a=$b-$a for 1..<>;print$a
Fri Sep 26 01:40:33 2014
perl

1
instead of
89
#!/usr/bin/perl -p0
$_=$b=1;for$x(1..$_){$b+=$_,$_=$b-$_}
Fri Sep 26 01:38:41 2014
perl

1
instead of
89
#!/usr/bin/perl -p
$_=$b=1;for$x(1..<>){$b+=$_,$_=$b-$_}
Fri Sep 26 00:35:33 2014
perl
#!/usr/bin/perl -paF
y/IVXLCDM/0-6/,$x+=2*($s=$l)*($s<($l=10**($_/2)*2.5**($_%2/2)))-$l for@F;$_=-$x
Fri Sep 26 00:33:17 2014
perl
#!/usr/bin/perl -p
s/((.)\2+)/$2.length$1/ge
Fri Sep 26 00:30:42 2014
bash

./code: line 4: echoQUI= QUJD QUJDRA== //8=: No such file or directory

echo"QUI=
QUJD
QUJDRA==
//8="
Fri Sep 26 00:30:20 2014
perl

QUI=
QUJD
QUJDRA==
//8=
instead of
0123456789ABCDEF
FEDCBA9876543210
ASNFZ4mrze8=
/ty6mHZUMhA=
qqqqu7u7zMzM
QUJDRA==
//8=
print"QUI=
QUJD
QUJDRA==
//8="
Fri Sep 26 00:29:01 2014
perl

Hello!<br>---<br><br><strong>Glad to see you!</strong><br><em>Golf Coding is so cool :)</em>
instead of
<h2>Hello!</h2><p><strong>Glad to see you!</strong><br><em>Golf Coding is so cool :)</em></p>
#!/usr/bin/perl -p
%h=qw/* em ** strong/;s,-{10}\n,<hr><p>,;s,(.+)\n---\n+(.+),<h2>$1</h2><p>$2</p>,s;s, - (.+?)\n,<li>$1</li>,g;s,(<li>.+</li>),<ul>$1</ul>,;s,!\[(.+)\]\((.+)\),<img src="$2" alt="$1"></p>,;s,\[(.+)\]\((.+)\),<p><a href="$2">$1</a>,;s,(\*+)(.+?)\1 *,<$h{$1}>$2</$h{$1}>,g;s,\n# (.+?) #,</p><h1>$1</h1>,;s,((\d+\..+)+),<ol>$1</ol>,s;s,\d+\. (\w+)\n?,<li>$1</li>,g;s,\n,<br>,
Fri Sep 26 00:27:30 2014
perl
#!/usr/bin/perl -p
%h=(i,em,b,strong);s,\[([ib])\](.+?)\[/\1\],<$h{$1}>$2</$h{$1}>,g;s,\[url=(.*?)\],<a href="\1">,;s,\[/url\],</a>,;s,\[u\],<span class=u>,;s,\[/u\],</span>,;s,\[img\](.+)\[/img\],<img src="\1">,;s,\[img=(.+)\](.+)\[/img\],<img src="\1" alt="\2">,;
Thu Sep 25 07:58:51 2014
perl
#!/usr/bin/perl -0p
%h=(i,em,b,strong);s,\[([ib])\](.+?)\[/\1\],<$h{$1}>$2</$h{$1}>,g;s,\[url=(.*?)\],<a href="\1">,;s,\[/url\],</a>,;s,\[u\],<span class=u>,;s,\[/u\],</span>,;s,\[img\](.+)\[/img\],<img src="\1">,;s,\[img=(.+)\](.+)\[/img\],<img src="\1" alt="\2">,;

2
instead of
3
#!/usr/bin/perl -p
$_=y///c
Thu Sep 4 20:57:14 2014
perl
#!/usr/bin/perl -paF
$x+=($d={M,1000,D,500,C,100,L,50,X,10,V,5,I,1}->{$_})-2*$l*($l<$d),$l=$d for@F;$_=$x
Thu Sep 4 20:55:53 2014
perl
#!/usr/bin/perl -p
$_=join" ",map{$a=$_;$_=$#x-$i++;(hundred,one,two,three,four,thousand,six,seven,million,nine,thirteen,eighty,fifty,twenty)[($_?/1|4|7/?$a>1?$a%4-3:0:$a:$a==3?10:$a)||(),/2|5|8/&&$a?0:/3|6/?$_+2:()]}@x=/./g
Thu Sep 4 20:53:05 2014
perl
#!/usr/bin/perl -paF
$x+=($d={(M,1000,D,500,C,100,L,50,X,10,V,5,I,1)}->{$_})-2*$l*($l<$d),$l=$d for@F;$_=$x
Thu Sep 4 06:03:42 2014
perl

4221
instead of
3999
#!/usr/bin/perl -paF
$x+=($d={qw/M 1000 D 500 C 100 L 50 X 10 V 5 I 1/}->{$_})-2*$l*($l<($l=$d))for@F;$_=$x
Thu Sep 4 05:12:24 2014
perl
#!/usr/bin/perl -paF
$x+=($d={qw/M 1000 D 500 C 100 L 50 X 10 V 5 I 1/}->{$_})-2*$l*($l<$d),$l=$d for@F;$_=$x
Sat Aug 30 22:06:50 2014
perl
#!/usr/bin/perl -p
$x[$.][$-[1]]=$1while/(\d+|.)/g}{sub l{map{${$a=\$c[$_]}!~/\d/&&next,$t=$$a,map{$_=${$b=\$c[$_]};/</||/$"/&&!$o&&last;/\d/&&($t=$$a+=$_,$$b='',redo)}$_+1..$#c for 0..$#{*c=$x[$_]}}0..$#x}sub p{$i=$k=0;for(@x){$j=0;/</&&($u=\$x[$i-1][$j+4],$d=\$x[$i+1][$j+4],$$u=~/\d/&&$$d=~/\d/?($r=$$u*$$d/($$u+$$d),$_=$x[$i][$j-2],$$u=$$d='',($x[$i][$j])=/\//?(0,$x[$i+1][$j]=$r):/\\/?('',$x[$i-1][$j]=$r):$r):$k++),$j++for@$_;$i++;$o=1}$k?p():l}l;p;$_=$t
Sat Aug 30 21:01:34 2014
perl
#!/usr/bin/perl -p
$x[$.][$-[1]]=$1while/(\d+|.)/g}{sub l{map{${$a=\$c[$_]}!~/\d/&&next,$t=$$a,map{$_=${$b=\$c[$_]};/</||/$"/&&!$d&&last;/\d/&&($t=$$a+=$_,$$b='',redo)}$_+1..$#c for 0..$#{*c=$x[$_]}}0..$#x}sub p{$i=$k=0;for(@x){$j=0;/</&&($u=\$x[$i-1][$j+4],$d=\$x[$i+1][$j+4],$$u=~/\d/&&$$d=~/\d/?($r=$$u*$$d/($$u+$$d),$_=$x[$i][$j-2],$$u=$$d='',($x[$i][$j])=/\//?(0,$x[$i+1][$j]=$r):/\\/?('',$x[$i-1][$j]=$r):$r):$k++),$j++for@$_;$i++}p()if$k;$d=1;l}l;p;$_=$t
Sat Aug 30 20:59:13 2014
perl
#!/usr/bin/perl -p
$x[$.][$-[1]]=$1while/(\d+|.)/g}{sub p{$i=$k=0;for(@x){$j=0;/</&&($u=\$x[$i-1][$j+4],$d=\$x[$i+1][$j+4],$$u=~/\d/&&$$d=~/\d/?($r=$$u*$$d/($$u+$$d),$_=$x[$i][$j-2],$$u=$$d='',($x[$i][$j])=/\//?(0,$x[$i+1][$j]=$r):/\\/?('',$x[$i-1][$j]=$r):$r):$k++),$j++for@$_;$i++}p()if$k;$d=1;l()}sub l{map{${$a=\$c[$_]}!~/\d/&&next,$t=$$a,map{$_=${$b=\$c[$_]};/</||/$"/&&!$d&&last;/\d/&&($t=$$a+=$_,$$b='',redo)}$_+1..$#c for 0..$#{*c=$x[$_]}}0..$#x}l;p;$_=$t
Sat Aug 30 20:49:44 2014
perl
#!/usr/bin/perl -p
$x[$.][$-[1]]=$1while/(\d+|.)/g}{sub p{$i=$k=0;for(@x){$j=0;/</&&($u=\$x[$i-1][$j+4],$d=\$x[$i+1][$j+4],$$u=~/\d/&&$$d=~/\d/?($r=$$u*$$d/($$u+$$d),$_=$x[$i][$j-2],$$u=$$d='',($x[$i][$j])=/\//?(0,$x[$i+1][$j]=$r):/\\/?('',$x[$i-1][$j]=$r):$r):$k++),$j++for@$_;$i++}p() if$k;$d=1;l()}sub l{map{${$a=\$c[$_]}!~/\d/&&next,$t=$$a,map{$_=${$b=\$c[$_]};/</||/$"/&&!$d&&last;/\d/&&($t=$$a+=$_,$$b='',redo)}$_+1..$#c for 0..$#{*c=$x[$_]}}0..$#x}l;p;$_=$t