Help for this page

Select Code to Download


  1. or download this
    my $sum = 0;
    $sum += $_ for @list;
    
  2. or download this
    print sub { (map {splice @_, 0, 2, $_[0] + ($_[1] // 0)} @_)[-1] }-> (
    +1,2,3,4,5);