Re^5: Wordfeud racks


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^5: Wordfeud racks

by Anonymous Monk

on Jul 30, 2013 at 14:24 UTC ( [id://1047043]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Wordfeud racks (Math::Combinatorics)
in thread Wordfeud racks

ok, I see what's what now after I look inside , its much like choroba wrote , %seen

sub next_multiset {
  my $self = shift;

  if ( ! $self->{frequency} ) {
    print STDERR "must use next_combination() if 'frequency' argument 
+not passed to constructor\n";
    return ();
  }

  my $data = $self->data();
  my $compare = $self->compare();

  while ( my @combo = $self->_next_combination ) {
    my $x = join '', map {scalar($$_)} sort @$data;
    my $y = join '', map {scalar($_) } sort @combo;

    next if $self->{'cache_multiset'}{$y}++;
    return @combo;
  }
  $self->{'cache_multiset'} = undef;
  return ();
}
[download]

so Algorithm::Combinatorics doesn't appear to support that(%seen) out of the box (I see no cache, no hv)