obfuscated
kelan
<p>
Not particularly obfu, but it helped me learn a bit more about un/pack. (strict and warnings compliant!)
<code>
@)=(0,-7936,(0)x5,-0,0,-16252928,0,8118528,3949056,3146752,530432,516096,0,
-245760,-798720,-3148800,-12337920,270336,(-0)x1,-0,-516096,0,516096,(0)x4,
16260864,0,-16760832,-15360,515584,5888,0,-5888,-515584,15360,507904,(0)x4,
-0,16252928,-0,-16260864,-0,0,(-0)x2,0,-516096,0,516096,(-0)x4,0,16260864);
if ($==unpack(v78,(pack(v66.(unpack(v67,(v32))),(1x unpack(v67,(v32))))))){
print(0.1_0.0,unpack(v66.(unpack(v67,(v32))),(pack(v78,($=+=$_)))))for(@))}
</code>
</p>
<p>k<font color="#a00000">e</font>lan <hr></p>
<p>Perl6 <a href="http://dev.perl.org/perl6/exegesis/5">Grammar</a> Student</p>