Help for this page

Select Code to Download


  1. or download this
      my %set = ();
      my @new_items = ...;
      @set{@new_items} = (1) x @new_items;
    
  2. or download this
      delete @set{@other_items};
    
  3. or download this
      # Difference.
      sub difference {
    ...
        @symm{@set1, @set2} = (1) x (@set1 + @set2);
        \%symm;
      }