On Sat, Jul 02, 2005 at 09:50:38PM -0700, Michael G Schwern wrote:
> Neither of these works fully, though they do no worse than the existing code. 

I take that back.  Because it attempts to sort the references it breaks
the previously working case where the references were already in order.
So I instead just don't sort the references at all which is effectively
what the original did.

    return eq_array(
           [grep(ref, @$a1), sort( grep(!ref, @$a1) )],
           [grep(ref, @$a2), sort( grep(!ref, @$a2) )],
    );


-- 
Michael G Schwern     [EMAIL PROTECTED]     http://www.pobox.com/~schwern
Ahh email, my old friend.  Do you know that revenge is a dish that is best 
served cold?  And it is very cold on the Internet!

Reply via email to