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

[Andrey]

Andrey пишет:
> Eugene Ardarov пишет:
>>
>> Соптимайзил до такого (-3 символа):
>>   
>
> -1 символ:
> !=1 можно смело менять на <1.

Чё уж там, ещё минус много выкидыванием do: (149.608 strokes):
#!perl -naF
map{/[h-l]/?${$;[$n]=o;push на p,$n;$;[$p[++$t]]='-'if$;[$n+=$$_]<1;$;[$n]=x}:/x/&&($k-=$j=@F,$l=!$h--,$n=@;),$p[/o/]=@;, на p>2||push@;,$_}@F}{print@