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

[Eugene Ardarov]

Ох как оказывается еще можно было сократить!
Вот это место
    push на y,$_;$n=$#y if/x/;$p[1]=$#y if/o/
можно заменить на
    $n=@y if/x/;$p[1]=@y if/o/;push на y,$_
(еще -2 символа).

Плюс:
    }}@F;$h=-1;$l=1;$k=-($j=@F)
заменить на
    }$h=-1;$l=1}@F;$k=-($j=@F)
(еще -1 символ).

А каким образом вот это работает в конце?
    }{pop на y;print на y
Просто нет возможности сейчас читать доку.

21 мая 2009 г. 19:10 пользователь Andrey <jerom+moscow-pm на bibirevo.net> написал:
> Все решения тут: http://jerom.livejournal.com/147166.html
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>