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

[Eugene Ardarov]

> Итого 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@

Неа, можно еще вот это
    $k=-($j=@F)
пихнуть перед $h-- вот так
    $k-=$j=@F,
И еще -2.
А $p[$l=1] заменить на $p[++$l], чтобы по аналогии с $h--.

И получается:

#!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 лишний считаешь :)