Help for this page

Select Code to Download

Select or download this

for (my $i=0;$i<@a;++$i){
    $b[$i] = $a[$i] - $a[$i+1];
}

Select or download this
```
@b = map{$_ - $_+1}, @a;
```