Help for this page

Select Code to Download


  1. or download this
    my @a = ( 42, 42, 43, 43, 43, 44, 45, 46, 41, -13 );
    my @b = ( 43, 45, -13, 43 );
    ...
    }
    @c = grep { defined } @c;
    print join ', ', @c; print "\n";