Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

$_='3032764823832C74534D43464082F82C01E02B11323F5508310
4F63594534153082C01E0';@f{0,1}=(0,1);$f=sub{my$i=$_[0];
exists$f{$i}?$f{$i}:($f{$i}=$f->($i-1)+$f->($i-2));};s/
\s//g;s/(..)(.)/print chr substr($f->(hex$1),$2,2)-1/ge