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