Генерация комбинаций с использованием Perl

Question

Мне нужно написать подпрограмму Perl, которая будет генерировать n выбор k комбинаций данного набора.Мне не нужно считать, сколько наборов есть, я должен быть в состоянии распечатать их.Я довольно озадачен.

Любой совет приветствуется.

С уважением.

Answer 1

Есть модуль с именем Math :: Combinatorics , который производит комбинации (nCr), перестановки (nPr) и отклонения от любого набора вещей, которые вы ему предоставляете.

Answer 2

Если вы хотите комбинации без повторения, вы можете сгенерировать все двоичные числа длиной k , выбрать те, которые имеют n 1 и применить их к набору в фиксированном порядке: 0означает, что не выбрано, 1 означает, что выбрано.Чтобы получить двоичное число, используйте sprintf '%05b';для подсчета использования 1 tr/1//.