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

Thu, 04 Jun 2009 06:32:40 -0700 

Andrey пишет:

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

Хехе, интересное извращенное использование ${} %)
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org





























					Ответить