$o='624633773672501141644024614615072372172376745663223200615062513630 +435672'; while (9>($q[$w-1]=++$w)){};$x[$_]=sqrt(oct(substr($o,($_-1)*($#q+1) ,$#q+1)))/$_ for(@q);$x.=sprintf("%09.0f",$x[$_]*$x[$_]*$_*$_)for (@q);while($_=substr($x,$y*($#q-5),$q[2])){$z[$y++]=$_}print chr for (@z)
rdfield
In reply to obfu with fors and whiles by rdfield
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |