On Tue, 07 Jun 2011 21:53:56 +0300, Alexander Onokhov wrote:
Для целочисленных >= 0 значений в массиве $ perl -le 'print length join "", map 1 x $_, 1, 2, 3' 6
Хороший ход конём. :) Жаль только отрицательные за бортом остаются. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
