[Moscow.pm] diff @array

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

Круглые скобки лишние

2010/8/13 Jury Gorky <jury.gorky на gmail.com>

> @uni = map { $inc[$_] - $inc[$_ - 1] } (1..$#inc);
>
> 2010/8/13 Andrew Shitov <andy на shitov.ru>:
> > Привет!
> >
> > А кто умеет упростить вот это, применив всякие 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
> >
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



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