[Moscow.pm] YAPC::Russia Perl Golf 2009

[Andrey]

Eugene Ardarov пишет:
> #!perl -naF
> map{/[h-l]/?do{$;[$n]=o;push на p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]="-";$;[$n]=x}:do{$k-=$j=@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;push на p,$n;$;[$p[$t+=$;[$n+=$$_]!=1]]=~s/o/-/;$;[$n]=x}:do{$k-=$j=@F,$h--,$n=@;if/x/;$p[/o/]=@;;$l=1;push@;,$_}}@F}{pop@;;print@