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;
Жаль что в ракуде в данный момент не работают такие штуки как: @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.. [email protected] -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
