Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
print "Union:        ", pp(\%union), "\n";
print "Intersection: ", pp(\%inter), "\n";
print "XOR:          ", pp(\%xor),   "\n";

Select or download this

14:17 >perl 958_SoPW.pl
Histogram 1:  { a => 2, b => 5, c => 7 }
...
XOR:          { a => 2, d => 4 }

14:17 >