如何枚举所有可能的元素组合

发布于 2024-10-16 12:37:04 字数 166 浏览 5 评论 0原文

我想枚举元素数组的所有可能组合。例如：我有数组：

$r = ('a1','a2','a3' ...).

我想打印元素数组的所有组合： a1a2、a1a3、a1a2a3 等。在哪里 a1a2 != a2a1, a1a2a3 != a1a3a2 ...

原文

I want to enumerate all possible combinations of elements array. For example: I have array:

$r = ('a1','a2','a3' ...).

I want to print all combinations of element arrays:
a1a2, a1a3, a1a2a3, etc .
where
a1a2 != a2a1, a1a2a3 != a1a3a2 ...

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

ι不睡觉的鱼゛ 2024-10-23 12:37:04

事实证明，有一个一个模块：

use Math::Combinatorics;

@r = qw(a1 a2 a3 ...);
#@all_combinations_of_r = map { combine($_,@r) } 1..@r;
@all_permutations_of_r = map { permute(@$_) } map { combine($_,@r) } 1..@r;

It turns out that there's a module for that:

use Math::Combinatorics;

@r = qw(a1 a2 a3 ...);
#@all_combinations_of_r = map { combine($_,@r) } 1..@r;
@all_permutations_of_r = map { permute(@$_) } map { combine($_,@r) } 1..@r;

回复收藏 0 原文

~没有更多了~