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

[Andrey]

Eugene Ardarov пишет:
> Соптимайзил до такого (-3 символа):
> #!perl -naF
> map{/[h-l]/?do{$;[$n]=o;push на p,$n;$;[$p[++$t]]='-'if$;[$n+=$$_]!=1;$;[$n]=x}:do{$k-=$j=@F,$l=!$h--,$n=@;if/x/;$p[/o/]=@;;push@;,$_}}@F}{pop@;;print@
>
>   
Правильный, но не короче:

#!perl -naF
map{/[h-l]/?do{$;[$n]=o;push на p,$n;$;[$p[++$t]]='-'if$;[$n+=$$_]!=1;$;[$n]=x}:do{$k-=$j=@F,$l=!$h--,$n=@;if/x/;$p[/o/]=@;;@p>2||push@;,$_}}@F}{print@

С лёгким багом, но короче (151.604 strokes):
#!perl -naF
map{/[h-l]/?do{$;[$n]=o;push на p,$n;$;[$p[++$t]]='-'if$;[$n+=$$_]!=1;$;[$n]=x}:do{$k-=$j=@F,$l=!$h--,$n=@;if/x/;$p[/o/]=@;;$t||push@;,$_}}@F}{print@