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

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

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

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

Ответить