Help for this page

Select Code to Download


  1. or download this
    our @a; local *a = shift;
    
  2. or download this
    \local our @a = shift;
    
  3. or download this
    \my @a = shift;
    
  4. or download this
    sub sum {
        \my @a = shift;
    ...
        $total += $a[ $_ ] for 0 .. $#a;
        return $total;
    }