使用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生成組合

回答

相關問題