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