JAPH Math
- Details
- Category: Codigo
- Published on Monday, 21 March 2011 20:09
- Written by Cristian Vasquez Diaz
- Hits: 43
Bienvenido al azar, aveces sirve para resolver problematicas interesantes
@_=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,_(@_));