@uni = map { $inc[$_] - $inc[$_ - 1] } (1..$#inc);2010/8/13 Andrew Shitov <[email protected]>: > Привет! > > А кто умеет упростить вот это, применив всякие 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 > -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
