Help for this page

Select Code to Download


  1. or download this
    foreach my $i1 (@LongListOfIntegers) {
    ($i1 & $_)==1 and undef $MatchedIntegers{$i1}{$_} 
         foreach @LongListOfIntegers;
}
  2. or download this
    foreach my $i1 (@LongListOfIntegers) {
    use integer;
    ($i1 & $_) == 1 and undef $MatchedIntegers{$i1}{$_} 
         foreach @LongListOfIntegers;
}
  3. or download this
    @LongListOfIntegers = grep $_ &1, @LongListOfIntegers;
foreach my $i1 (@LongListOfIntegers) {
...
    ($i1 & $_) == 1 and undef $MatchedIntegers{$i1}{$_} 
         foreach @LongListOfIntegers;
}
  4. or download this
    @LongListOfIntegers = grep $_ &1, @LongListOfIntegers;

...
    ($v & $_) == 1 and undef $MatchedIntegers{$i1}{$_} 
        foreach @LongListOfIntegers[ $i1+1 .. $#LongListOfIntegers ];
}