Eugene Ardarov пишет:
> И еще можно вот это
> $h=-1;
> запихать сюда вот так
> $h--,$n=@;if/x/;
>
> Еще -1 символ.
>
> Боже мой, ну и монстр получается! :D
>
Итого 163, шикарно:
#!perl -naF
map{/[h-l]/?do{$;[$n]=o;push на p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]="-";$;[$n]=x}:do{$h--,$n=@;if/x/;$p[$l=1]=@;if/o/;push@;,$_}}@F;$k=-($j=@F)}{pop@;;print@