冒泡法排序
阿新 • • 發佈:2019-02-20
use strict;
my@name= qw (wang li jun);
my@value= qw (1534.715);
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 (1534.715);
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[
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]
}