Re^5: How to restrict partitions

[choroba]

In Perl, "distinct" means "hash":

sub distinct {
    my %distinct;
    @distinct{@_} = ();
    return keys %distinct;
}