英文字母 26 個字,然後最長三個字串,怎麼讓它排列出所有的組合方式

use strict;
use Data::Dumper;
use Algorithm::Combinatorics qw(:all);

my @data = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
my $k = 3;

print Dumper tuples_with_repetition(\@data, $k);

結果,就有 17576 種

$VAR1 = [
          'a',
          'a',
          'a'
        ];
$VAR2 = [
          'a',
          'a',
          'b'
        ];
(中間省略)
$VAR17575 = [
              'z',
              'z',
              'y'
            ];
$VAR17576 = [
              'z',
              'z',
              'z'
            ];
Related posts 相關文章
2020 年迎來了 PHP 8 與 Perl 7
More...
安裝 perl 5.8.1 版本 – 草記
More...
perl 備註
More...
perl 隨機產生 password 密碼
More...

作者

留言

撰寫回覆或留言

發佈留言必須填寫的電子郵件地址不會公開。