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

[Varyanick I. Alex]

Здравствуйте, Andrey!

On Tue, Jun 02, 2009 at 12:04:38AM +0400, Вы писали:

> 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@

Читер ;)

-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q на cono.org.ua