Sean O'Rourke wrote:

> I'm saying "division" is now defined such that when the numerator is
> a hash(-ref), the result is the set of values associated with the
> denominator.  I've never tried to divide a hash or hashref by
> something without it being a bug.

Right...in Perl 5.

In Perl 6, a hash in a numeric context returns the number of entries it contains. So I can readily imagine:

    sub decimate_hash (%hash is rw) {
        for 1..%hash/10 {
            delete %hash{ pick any(keys %hash) };
        }
    }

Damian



Reply via email to