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 Хороший ход конём. :) Жаль только отрицательные за бортом остаются.