| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 5328 人关注过本帖
标题:冒泡算法
只看楼主 加入收藏
zhu224039
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:862
专家分:792
注 册:2012-7-29
结帖率:59.52%
  问题点数:0  回复次数:0   
冒泡算法
#!/usr/bin/perl -w
@rock=<STDIN>;
$n=$#rock;
while($n>0){   
    $i=0;
    while($i<$n){
        if($rock[$i]>$rock[$i+1]){
            $chage=$rock[$i];
            $rock[$i]=$rock[$i+1];
            $rock[$i+1]=$chage;
           
        }
        $i+=1;
    }
    $n-=1;
}
print "the sort:\n";
print @rock;
搜索更多相关主题的帖子: rock 
2014-06-10 18:17
快速回复:冒泡算法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.233005 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved