Привет!
А кто умеет упростить вот это, применив всякие 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