JAPH Math


We don't bite newbies here... much
	PerlMonks

JAPH Math

by cristian (Hermit)

on Oct 15, 2004 at 19:48 UTC ( [id://399633]=obfuscated: print w/replies, xml )

Need Help??

This code is a JAPH and have Math Estadistic relationship

@_=qw{106 -11 -13 -16 -104 -426  -1183
-2616   -4990   -8557  -13472   -19643
-26614 -34066  -44885  -75866  -187402
-555027  -1625071  -4426003  -11144193
-26102884 -57260279 -118156160};sub _{
my @__;while(@_){push@__,$_[0];$__=sub
{my @__;for(my $__=0;$__<@_ -1;$__++ )
{push@__,($_[$__]-$_[$__+1]);}@__;};@_
=$__->(@_);}@__};print map(chr,_(@_));
[download]

by Cristian Vasquez Diaz