Hmm interesting!

I was sure that using De Morgan's laws would just relocate the problem and not solve it. (you're now only deleting hash-slices)

But this relocation makes sense ... now it works for all cases where "undef" isn't allowed as part of an initial set. (undef deletes empty strings).

But you shouldn't use print to inspect data structures:

 
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump qw(pp);
 
my @array1=(1..2,"");
my @array2=(2..3,undef);
 
my (%union, %sdiff, %sd1, %sd2, %inter);
 
@union{(@array1,@array2)} = (@array1,@array2);
 
%sd1 = %sd2 = %inter = %union;
 
delete @sd1{@array2};
delete @sd2{@array1};
%sdiff = (%sd1,%sd2);
 
delete @inter{keys %sdiff};
 
print "array1: ", pp(\@array1), "\n";
print "array2: ", pp(\@array2), "\n";
print "union: ", pp(\%union), "\n";
print "sdiff: ", pp(\%sdiff), "\n";
print "inter: ", pp(\%inter), "\n";
print "sd1: ", pp(\%sd1), "\n";
print "sd2: ", pp(\%sd2), "\n";

[download]

prints

Use of uninitialized value $array2[2] in hash slice at /home/lanx/B/PL
+/PM/set2.pl line 12.
Use of uninitialized value $array2[2] in delete at /home/lanx/B/PL/PM/
+set2.pl line 16.
array1: [1, 2, ""]
array2: [2, 3, undef]
union: { "" => undef, 1 => 1, 2 => 2, 3 => 3 }
sdiff: { 1 => 1, 3 => 3 }
inter: { "" => undef, 2 => 2 }
sd1: { 1 => 1 }
sd2: { 3 => 3 }

[download]

But while you found a mathematical solution, needing so many operations for an intersection is in practice a little disappointing ...

Thanks anyway! :)

Cheers Rolf

In reply to Re^2: Using hashes for set operations... by LanX
in thread Using hashes for set operations... by LanX

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.