ой, это явно треш :)
2010/8/13 Dmitry Karasik <[email protected]>
> 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
> > ______________________________________________________________________
> > [email protected] | http://shitov.ru
> > --
> > Moscow.pm mailing list
> > [email protected] | http://moscow.pm.org
>
> --
> Sincerely,
> Dmitry Karasik
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
С уважением,
Анатолий Шарифулин.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
