[Slackit.org] Capitolo 17

[Roberto Natella]

Ciao,
visto che avevo tempo ho tradotto un altro capitolo del libro... però ho perso
l'indirizzo a cui inviare la traduzione, per cui qualcuno gentilmente mi indichi
la via :-)

Bye

-- 
@x=(84,273,(map{2**$_*73}0..2),map{8**$_*7}0..2);sub c{($a|$b)&pop}sub t{grep{$
_==($_[0]&$_)address@hidden f{map{for$g(0..8){return$b+=$g 
if!c($g=2**$g)&&t($_+$g)}}$
b,$a;0while c$u=2**int rand 9;$b+=$u}sub p{while($o<7){$_="\n".":"x9;s/:::/$a&(
$m=$m<<1||1)?":X:":$b&$m?":O:":": :"/eg if$o++%2;print}$o=$m=0}p;sub 
w{if(address@hidden){
p;last}}while(<>){next if!/([1-9])/||c$_=2**($1-1);w$a+=$_;w $a|$b^511?f:511;p}