Eugene Ardarov пишет:
#!perl -naF
map{/[h-l]/?do{$;[$n]=o;p...@p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]="-";$;[$n]=x}:do{$k-=...@f,$h--,$n=@;if/x/;$p[++$l]=@;if/o/;push@;,$...@f}{pop@;;print@
что равно 160-ти символам, видимо ты еще перевод строки \r лишний считаешь :)
В этой и всех предыдущих после фикса с if/o/ версиях -- баг. Проявляется
только если в левом верхнем углу 1 и первым же шагом мы съедаем 1.
Фикс такой:
#!perl -naF
map{/[h-l]/?do{$;[$n]=o;p...@p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]=~s/o/-/;$;[$n]=x}:do{$k-=...@f,$h--,$n=@;if/x/;$p[/o/]=@;;$l=1;push@;,$...@f}{pop@;;print@
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
