On Wed, 10 Apr 2002, Curt Sampson wrote:
> > b) Doing proper set comparison (not bags)
>
> This I'm not sure about. You demonstrated some set comparison along
> these lines a while back, did you not?
eq_set() is really bag comparison. I want a test which returns true iff
for every item in two lists there exists an item in the other list that
is identical.
> but that you want to be using some sort of Set object and you're trying
> to use an array instead.
Probably ;-) I was thinking of making both lists hashkeys and then
checking that !(%a + %b), or keys %a == keys %b and that grep { $a{$_} }
keys %b and grep { $b{$_} } keys %a.
Later.
Mark.
--
s'' Mark Fowler London.pm Bath.pm
http://www.twoshortplanks.com/ [EMAIL PROTECTED]
';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/
){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}
