使用Perl生成组合

-2

我需要编写一个Perl例程，它会生成n个选择给定集合的k个组合。我不需要统计有多少套，我必须能够打印出来。我很难过。使用Perl生成组合

任何意见表示赞赏。

问候。

来源

2012-02-02 Schemer

-2

如果你想不重复的组合，可以生成所有二进制数长度ķ，选择那些有ň 1的，并将其应用到一组固定的顺序：0表示不选择，选择1种手段。要获得二进制数，请使用sprintf '%05b';统计1的使用tr/1//。

来源

2012-02-02 00:37:27 choroba

这看起来令人鼓舞！你能告诉我一个如何使用'sprintf'％05b''和'tr/1 //'的例子吗？他们对我来说都是新的。 – Schemer 2012-02-02 00:56:30

@Schemer：参见['sprintf']（http://perldoc.perl.org/functions/sprintf.html）和[Quote and Quote-like Operators]的文档（http://perldoc.perl.org/ perlop.html＃报价和报价单样操作员）。 'sprintf'格式化一个字符串，'％05b'是一个前导零的5位二进制数字。 'tr'替代字符并返回替换或删除的字符数，所以'tr/1 //'将删除所有的'1'字符，并给出它们的计数。 – 2012-02-02 01:17:15

好的，我通过谷歌搜索发现了sprintf。但是我找不到任何引用'tr/1 //'的东西。 – Schemer 2012-02-02 01:28:43

有一个叫做Math::Combinatorics的模块，它可以产生组合（nCr），排列（nPr）以及任何你提供给它的任何事物的排列。

来源

2012-02-02 01:10:11 hobbs

对不起，我忘了提及该模块没有安装在我正在使用的机器上，我无法自己安装。 – Schemer 2012-02-02 01:27:47

@Schemer =>该模块不使用XS，它没有任何非核心依赖关系，所以你当然可以使用它。有关如何查看http://stackoverflow.com/a/755179/189416。 – 2012-02-02 02:30:49

即使您无法安装它，也可以查看源代码。 – 2012-02-02 03:10:37

使用Perl生成组合

回答

相关问题