如何在Perl中创建完全无重复的多组随机数字集合？

嘿，我懂你遇到的麻烦了——要从1到50里生成5组各5个数字的集合，不仅每组内部不能有重复，组与组之间也得完全不重复对吧？之前的脚本只做到了单行内数字唯一，但跨组重复的问题确实没解决，比如你示例里的5、23这些数字重复出现了。

问题根源 #

你之前的脚本应该是每次生成一组数字时，都是直接从1-50里随机挑选，没有记录已经用过的数字，所以很容易出现跨组重复的情况。要彻底解决这个问题，我们需要先确保所有用到的数字都是全局唯一的，再拆分分组。

解决方案：先洗牌再拆分 #

最靠谱的思路是：先把1到50的所有数字生成一个完整数组，然后用公平的洗牌算法打乱顺序，最后按每5个元素一组拆分输出。这样一来，整个数组里的数字都是唯一的，拆分后的每组自然也满足“组内唯一、组间无重复”的要求。

下面是实现这个逻辑的Perl脚本：

#!/usr/bin/perl
use strict;
use warnings;

# 生成1到50的完整数字数组
my @all_numbers = 1..50;

# 用Fisher-Yates洗牌算法打乱数组（公平且高效的随机打乱方式）
for (my $i = $#all_numbers; $i > 0; $i--) {
    my $random_index = int(rand($i + 1));
    # 交换当前位置和随机位置的元素
    @all_numbers[$i, $random_index] = @all_numbers[$random_index, $i];
}

# 拆分出5组，每组5个数字并输出
for my $group_idx (0..4) {
    # 计算当前组在数组中的起始和结束位置
    my $start = $group_idx * 5;
    my $end = $start + 4;
    # 截取对应区间的元素作为当前组
    my @current_group = @all_numbers[$start..$end];
    
    # （可选）如果需要每组数字按升序排列，解开下面这行注释
    # @current_group = sort { $a <=> $b } @current_group;
    
    # 输出当前组的数字，用空格分隔
    print join(' ', @current_group), "\n";
}

代码说明 #

• 生成完整数组：1..50直接创建了包含1到50所有唯一数字的数组，确保没有遗漏也没有重复。
• Fisher-Yates洗牌：这是业界公认的公平洗牌算法，它通过从后往前遍历数组，每次将当前元素与前面随机位置的元素交换，保证每个元素出现在任意位置的概率相等，不会出现随机偏倚。
• 拆分分组：通过计算每组的起始和结束索引，直接从打乱后的数组中截取元素，这样每组的数字都是全局唯一的，完美满足你的需求。

如果需要每组内的数字是有序的，只需要解开代码里的排序注释即可，这样输出的每组数字会从小到大排列。

内容的提问来源于stack exchange，提问作者user8956060