How to check if a Set contains all the items of Another Set in Perl

How to check if a Set contains all the items of Another Set in Perl ?

Answer

To check if a Set contains all the items of another Set in Perl, you can use hash tables.


✐ Examples

1 Check if Set Contains All Items

In this example,

  1. We define two arrays representing Sets named @set1 and @set2.
  2. We create a hash table named %hash where the keys are the elements of @set1.
  3. We iterate over each element in @set2 and check if it exists in %hash.
  4. If any element from @set2 is not found in %hash, then @set1 does not contain all items of @set2.
  5. Finally, we print the result to the console.

Perl Program

# Define Sets with items
my @set1 = (1, 2, 3, 4, 5);
my @set2 = (2, 3);

# Create a hash table
my %hash = map { $_ => 1 } @set1;

# Check if set1 contains all items of set2
my $contains_all = 1;
foreach my $item (@set2) {
    unless ($hash{$item}) {
        $contains_all = 0;
        last;
    }
}

# Print result
print "Does set1 contain all items of set2? " . ($contains_all ? "true" : "false") . "\n";

Output

Does set1 contain all items of set2? true

2 Check if Set Does Not Contain All Items

In this example,

  1. We define two arrays representing Sets named @set1 and @set2.
  2. We create a hash table named %hash where the keys are the elements of @set1.
  3. We iterate over each element in @set2 and check if it exists in %hash.
  4. If any element from @set2 is not found in %hash, then @set1 does not contain all items of @set2.
  5. Finally, we print the result to the console.

Perl Program

# Define Sets with items
my @set1 = (1, 2, 3, 4, 5);
my @set2 = (2, 6);

# Create a hash table
my %hash = map { $_ => 1 } @set1;

# Check if set1 contains all items of set2
my $contains_all = 1;
foreach my $item (@set2) {
    unless ($hash{$item}) {
        $contains_all = 0;
        last;
    }
}

# Print result
print "Does set1 contain all items of set2? " . ($contains_all ? "true" : "false") . "\n";

Output

Does set1 contain all items of set2? false

Summary

In this tutorial, we learned How to check if a Set contains all the items of Another Set in Perl language with well detailed examples.


More Perl Sets Tutorials

  1. How to create an Empty Set in Perl ?
  2. How to Initialize a Set in Perl ?
  3. How to Get Length of a Set in Perl ?
  4. How to create a Set of size N in Perl ?
  5. How to create a Set of Numbers from 1 to N in Perl ?
  6. How to create a Set of integers in Perl ?
  7. How to create a Set of Strings in Perl ?
  8. How to Access Items in a Set in Perl ?
  9. How to get a Random Item in a Set in Perl ?
  10. How to Iterate Over a Set in Perl ?
  11. How to check if a Set is Empty in Perl ?
  12. How to check if a Set is Not Empty in Perl ?
  13. How to get Subset from a Set in Perl ?
  14. How to check if a Specific Item is present in the Set in Perl ?
  15. How to check if a Set contains all the items of Another Set in Perl ?
  16. How to Sort Items of a Set in Perl ?
  17. How to Copy a Set in Perl ?
  18. How to add an Item to a Set in Perl ?
  19. How to find Union of Two Sets in Perl ?
  20. How to find Intersection of Two Sets in Perl ?
  21. How to check if Two Sets are Equal in Perl ?
  22. How to Convert a Set of Integers to a Set of Strings in Perl ?
  23. How to Convert a Set of Strings to a Set of Integers in Perl ?
  24. How to Convert a Set of Floats to a Set of Strings in Perl ?
  25. How to Convert a Set of Strings to a Set of Floats in Perl ?
  26. How to Filter Items of a Set based on a Condition in Perl ?
  27. How to Remove Specific Item from a Set in Perl ?
  28. How to Remove Items from Set based on a Condition in Perl ?
  29. How to create a Set of Sets in Perl ?