Help for this page

Select Code to Download


  1. or download this
    my( $x, $y, $z ) = ( 1,2,3 );
    my $lamb = do{
        my( $x, $y, $z ) = ( $x, $y, $z );
        lambda ( $x, $y, $z ) => sub { $x + $y }
    }
    
  2. or download this
    my ( $x, $y, $z ) = ( 1, 2, 3 );
    lambda ( 1, 2, 3 ) => sub { 1 + 2 }