Las matemáticas:: Combinatorics son un módulo Perl que puede realizar combinaciones y permutaciones a listas.

SINOPSIS

Disponible cuando un objeto orientó el API.

use Matemáticas:: Combinatorics;

mi @n = qw (un b c);
mi $combinat = Matemáticas:: Combinatorics-> nuevo (cuentan => 2,
datos => [@n],
);

imprima "combinaciones de 2 de:".join ("",@n). "n";
letra "------------------------". ("-" x escalar (@n)). "n";
mientras (mi @combo = $combinat-> next_combination) {
imprima la juntura (@combo). "n";
}

letra "n";

imprima "permutaciones de 3 de:".join ("",@n). "n";
letra "------------------------". ("-" x escalar (@n)). "n";
mientras (mi @permu = $combinat-> next_permutation) {
imprima la juntura (@permu). "n";
}

producción:

O disponible vía funciones exportadas permutan, se combinan, y factorial.

use Matemáticas:: Combinatorics;

mi @n = qw (un b c);
imprima "combinaciones de 2 de:".join ("",@n). "n";
letra "------------------------". ("-" x escalar (@n)). "n";
imprima la juntura ("n", mapa {juntura "", el $ _} se combina (2,@n)), "n";
letra "n";
imprima "permutaciones de 3 de:".join ("",@n). "n";
letra "------------------------". ("-" x escalar (@n)). "n";
imprima la juntura ("n", mapa {juntura "", el $ _} permuta (@n)), "n";

Producción:

combinaciones de 2 de: un b c
------------------------------
un b
un c
b c

permutaciones de 3 de: un b c
------------------------------
un b c
un c b
b un c
b c a
c un b
c b a

La producción de ambos tipos de llamadas es el mismo, pero el acercamiento orientado al objeto consume mucho menos memoria para juegos grandes.