How to find Union of Two Sets in Perl - Step by Step Examples

◀ Previous Next ▶

How to find Union of Two Sets in Perl ?

Answer

In Perl, you can use the built-in Set::Scalar module to work with sets and perform set operations.

✐ Examples

1 Find Union of Two Sets using Set::Scalar

In this example,

We use the Set::Scalar module by importing it with the use keyword.
We create two Set::Scalar objects, $set1 and $set2, and add elements to them using the insert method.
We use the union method of $set1 to find the union with $set2 and store the result in $unionSet.
We print the elements of $unionSet to display the union of the two sets.

Perl Program

use Set::Scalar;

my $set1 = Set::Scalar->new(1, 2, 3);
my $set2 = Set::Scalar->new(3, 4, 5);

my $unionSet = $set1->union($set2);

print "Union of set1 and set2:\n";
print "$unionSet\n";

Output

Union of set1 and set2:
{1, 2, 3, 4, 5}

2 Find Union of Two Sets using Custom Implementation

In this example,

We create two arrays, @set1 and @set2, to represent the sets.
We define a subroutine named unionSets that takes references to @set1 and @set2 as parameters.
Inside the unionSets subroutine, we iterate over each element of @set2 and push it into @set1 if it's not already present.
We call the unionSets subroutine with references to @set1 and @set2.
We use the join function to concatenate the elements of @set1 and print the result to display the union set.

Perl Program

sub unionSets {
    my ($set1_ref, $set2_ref) = @_;
    my %union = map { $_ => 1 } @{$set1_ref}, @{$set2_ref};
    return keys %union;
}

my @set1 = (1, 2, 3);
my @set2 = (3, 4, 5);

my @unionSet = unionSets(\@set1, \@set2);

print "Union of set1 and set2:\n";
print join(', ', @unionSet), "\n";

Output

Union of set1 and set2:
1, 2, 3, 4, 5

Summary

In this tutorial, we learned How to find Union of Two Sets in Perl language with well detailed examples.

◀ Previous Next ▶