Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my @items = sort grep $seen{$_}++ == 1, map @$_, values %sets;

print "Items in more than one set: @items\n";

Select or download this
```
Items in more than one set: 1 3 4
```