[Moscow.pm] diff @array

[Анатолий Шарифулин]

ой, это явно треш :)

2010/8/13 Dmitry Karasik <dmitry на karasik.eu.org>

> let the fun begin!
>
> 1)
> use List::MoreUtils 'pairwise';
> print pairwise { $b - $a } @{[@inc[0..$#inc-1]]}, @{[@inc[1..$#inc]]};
>
> 2)
> local $. = $inc[0];
> print map { -$.+($.=$_) } @inc[1..$#inc];
>
> и его деструктивная версия
>
> local $. = shift @inc;
> print map { -$.+($.=$_) } @inc;
>
>
> On Fri, Aug 13, 2010 at 11:09:50AM +0200, Andrew Shitov wrote:
> > Привет!
> >
> > А кто умеет упростить вот это, применив всякие map/grep?
> >
> >
> > my @inc = (0, 10, 20, 35, 55);
> > my @uni;
> > for (my $c = 1; $c != scalar @inc; $c++) {
> >     push @uni, $inc[$c] - $inc[$c - 1];
> > }
> > say Dumper \@uni;
> >
> >
> > --
> > Andrew Shitov
> > ______________________________________________________________________
> > andy на shitov.ru | http://shitov.ru
> > --
> > Moscow.pm mailing list
> > moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Sincerely,
>         Dmitry Karasik
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
С уважением,
 Анатолий Шарифулин.
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20100813/b51065b4/attachment.html>