[Moscow.pm] diff @array

[Jury Gorky]

@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
>