[Moscow.pm] diff @array

[Alex Varyanick]

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;

Жаль что в ракуде в данный момент не работают такие штуки как: @inc[1..*-1]
Зато работает такой чудо оператор:
% perl6 -e '(<10 20 35 55> Z- <0 10 20 35>).perl.say'
(10, 10, 15, 20)

Конечный вид был бы:
% perl6 -e 'my @inc = <0 10 20 35 55>; (@inc[1..*] Z- @inc[0..*-1]).perl.say'

-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q на cono.org.ua