X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=f21c8f81446aa64aff112b2f49f22bfb7fa47939;hp=bda8335f47b95803c87f56b0308866ea011f02cc;hb=91deeda20173f3d35c5b936c9e6db1cbe08f0e00;hpb=ac0f3ea3b3aba67758f18170c2df60a7fc536bf2

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index bda8335..f21c8f8 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -184,27 +184,6 @@ sub scale {
  return (ref $r) ? { map { $_ => $r->{$_} * $c } keys %$r } : { $r => $c };
 }
 
-sub combine {
- reduce {{
-  my %res;
-  my $la = delete $a->{list};
-  my $lb = delete $b->{list};
-  if (defined $la || defined $lb) {
-   $la ||= 0;
-   $lb ||= 0;
-   $res{list} = $la + $lb - $la * $lb;
-  }
-  while (my ($ka, $va) = each %$a) {
-   $ka = int $ka;
-   while (my ($kb, $vb) = each %$b) {
-    my $key = $ka + int $kb;
-    $res{$key} += $va * $vb;
-   }
-  }
-  \%res
- }} map { (ref) ? $_ : { $_ => 1 } } grep defined, @_;
-}
-
 sub power {
  my ($p, $n, $c) = @_;
  return unless defined $p;