Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my @find = (3, 4);

dd grep { my $e = $_; none { $e == $_ } @find } @a;
  2. or download this
    22:52 >perl 1371_SoPW.pl
(1, 2, 5)

22:52 >