冒泡法排序
来源:互联网 发布:北京软件产业基地 编辑:程序博客网 时间:2024/04/28 22:45
use strict;
my @name = qw (wang li jun);
my @value = qw (15 34.7 15);
my @item;
my @srcItem;
my @reItem;
for (my $i = 0; $i <=$#name; $i++ ) {
print "$name[$i]--$value[$i] ";
# 合并
$item[$i] = $name[$i].'#'.$value[$i];
}
# 排序
for (my $j =0; $j < $#value; $j++) { #循环N-1次
for (my $i = 0; $i < $#value-$j; $i++) {
if( $value[$i] < $value[$i+1] ) {
my $tmp = $value[$i];
$value[$i] = $value[$i+1];
$value[$i+1] = $tmp;
my $tmpItem = $item[$i];
$item[$i] = $item[$i+1];
$item[$i+1] = $tmpItem;
}
}
}
for (my $i = 0; $i <=$#name; $i++ ) {
print "$item[$i] ";
}
my @name = qw (wang li jun);
my @value = qw (15 34.7 15);
my @item;
my @srcItem;
my @reItem;
for (my $i = 0; $i <=$#name; $i++ ) {
print "$name[$i]--$value[$i] ";
# 合并
$item[$i] = $name[$i].'#'.$value[$i];
}
# 排序
for (my $j =0; $j < $#value; $j++) { #循环N-1次
for (my $i = 0; $i < $#value-$j; $i++) {
if( $value[$i] < $value[$i+1] ) {
my $tmp = $value[$i];
$value[$i] = $value[$i+1];
$value[$i+1] = $tmp;
my $tmpItem = $item[$i];
$item[$i] = $item[$i+1];
$item[$i+1] = $tmpItem;
}
}
}
for (my $i = 0; $i <=$#name; $i++ ) {
print "$item[$i] ";
}
冒泡法(沉底法)排序
N个数需要排序N-1趟。
- 【排序】冒泡排序法
- 常用排序-冒泡法排序
- 排序法之冒泡排序
- php排序&冒泡法排序
- 排序之冒泡排序法
- 排序算法--冒泡排序法
- 【PHP】冒泡排序法排序
- 排序算法--冒泡排序法
- 冒泡法排序
- 排序:冒泡法
- 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡排序法
- java 冒泡排序法
- 冒泡法排序
- 冒泡法排序
- 冒泡法排序
- 各大银行借记卡取款手续费比较表
- 研发团队组建问题面面观之观后感
- 送给刘立芳
- jhgjj
- 人生在勤,不索何获?
- 冒泡法排序
- 打开Office软件时的错误-----隐含模块中的编译错误:autoexecnew
- Sql Server2005登录失败.
- 如何设置文件的大小
- 在面试一个游戏编程职位前,你需要知道的东西
- 简单工厂模式
- 服务器性能测试典型工具介绍
- 南邮四年来的学校主页
- 正则表达式系统教程(转)