Help for this page

Select Code to Download


  1. or download this
    { #outer scope
  $lamb = lambda ( $x, $y, $z ) => sub { $x + $y }
}
  2. or download this
      DB<20> $lamb=sub { my($x,$y)=\(@_); $$x += $$y } 
  
  DB<21> $a=10; $lamb->($a,5); print $a
15