新手上路，请教一个关于排序的问题

austinlew

刚学习perl不久，写了一个简单的排序，可是第二个if总表达不了，请教一下各位，谢谢。
代码如下：
@unsort= qw /8 5 9 77 60 3 55 /;
print"@unsort n";
@sort=shift(@unsort);
foreach $unsort(@unsort) {
foreach $n (qw/ 0 .. $#sort/)
{if($unsort<$sort[0])
    {unshift (@sort , $unsort);last;}
elsif($unsort<$sort[$n])
    {@sort=(@sort[0..$n-1] , $unsort , @sort[$n..$#sort]);last;}
elsif($unsort>$sort[$#sort])
    {push (@sort,$unsort);last;}}
}
print "@sort n";

apile

@sort=shift(@unsort);
这里@sort只有一个...

兰花仙子

原帖由 austinlew 于 2005-11-15 11:20 发表
刚学习perl不久，写了一个简单的排序，可是第二个if总表达不了，请教一下各位，谢谢。
代码如下：
@unsort= qw /8 5 9 77 60 3 55 /;
print"@unsort n";
@sort=shift(@unsort);
foreach $unsort(@ ...

Logic有点混乱哦，偶看了半天，有点晕了。
@sort=shift(@unsort);这个用意何在呢？

austinlew

不好意思，刚学习perl不久，很多东西都不清晰，
我的原意是先把未分类列表的第一个值取出来成为已分类的第一个值，
然后对未分类的所有元素开始遍历， 如果小于分类列表第一个值，就用unshift加进去；
小于已分类数组中间的某个值，就插入进去，大于最后一个值，就用push加载最后；
不知道表述清楚否，还望不吝赐教，谢谢！

兰花仙子

原帖由 austinlew 于 2005-11-15 20:54 发表
不好意思，刚学习perl不久，很多东西都不清晰，
我的原意是先把未分类列表的第一个值取出来成为已分类的第一个值，
然后对未分类的所有元素开始遍历， 如果小于分类列表第一个值，就用unshift加进去；
小于已分 ...

你的思路没错的，只是code写的很乱，偶给你整理了下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. 
   
5. my @unsort= (8,5,9,77,60,3,55);
   
6. my @sort=shift @unsort;
   
7. foreach my $unsort (@unsort)
   
8. {
   
9.         if($unsort < $sort[0])
   
10.         {
    
11.             unshift (@sort, $unsort);
    
12.             next;
    
13.         }elsif($unsort > $sort[$#sort])
    
14.         {
    
15.             push (@sort,$unsort);
    
16.             next;
    
17.         }
    
18. 
    
19.         foreach my $n (0 .. $#sort)
    
20.         {
    
21.             if($unsort < $sort[$n])
    
22.             {
    
23.                 @sort=(@sort[0..$n-1], $unsort, @sort[$n..$#sort]);
    
24.                 last;
    
25.             }
    
26.         }
    
27. }
    
28. print "@sort \ n";

复制代码

$ perl test.pl
3 5 8 9 55 60 77

Just Fine!

[ 本帖最后由 兰花仙子 于 2005-11-15 22:26 编辑 ]

austinlew

谢谢仙子，果然可以了，正在学习中.....