冒泡排序 Perl 实现159

冒泡排序是一种简单的排序算法，通过重复地比较相邻元素并交换它们的位置，最终使列表中的元素从小到大排列。

算法步骤1. 创建一个数组并填充需要排序的数据。
2. 设置一个标志位，用于指示数组是否已排序。
3. 遍历数组，比较相邻元素。
4. 如果相邻元素的顺序不正确，则交换它们的顺序。
5. 更新标志位，以指示数组是否已排序。
6. 如果标志位为真，则算法结束。否则，返回步骤 3。

Perl 实现以下是用 Perl 编写的冒泡排序算法：
```perl
#!/usr/bin/perl
use strict;
use warnings;
sub bubble_sort {
my @array = @_;
my $length = scalar @array;
my $sorted = 0;
while (!$sorted) {
$sorted = 1;
for (my $i = 0; $i < $length - 1; $i++) {
if ($array[$i] > $array[$i + 1]) {
my $temp = $array[$i];
$array[$i] = $array[$i + 1];
$array[$i + 1] = $temp;
$sorted = 0;
}
}
}
return @array;
}
my @unsorted = (5, 3, 1, 2, 4);
my @sorted = bubble_sort(@unsorted);
print "排序前数组：", join(', ', @unsorted), "";
print "排序后数组：", join(', ', @sorted), "";
```

复杂度分析* 时间复杂度：O(n2)，其中 n 是数组的长度。这是因为算法需要遍历数组 n 次，并且每次遍历都需要比较 n 个元素。
* 空间复杂度：O(1)，因为算法不需要额外的存储空间。

应用场景冒泡排序算法通常用于小型数据集的排序，因为它简单易于理解。对于大型数据集，可以使用更有效的排序算法，例如归并排序或快速排序。

优点和缺点优点：
* 简单易于理解
* 内存消耗少
* 对于小型数据集，效率相对较高
缺点：
* 对于大型数据集，效率低下
* 不稳定，即相等元素的顺序在排序后可能会改变

2025-02-06

上一篇：揭秘 Perl 的异步编程

下一篇：正则表达式之 Perl 中的 ？匹配符