Chinaunix首页 | 论坛 | 博客
  • 博客访问: 633374
  • 博文数量: 54
  • 博客积分: 3812
  • 博客等级: 上校
  • 技术积分: 992
  • 用 户 组: 普通用户
  • 注册时间: 2007-04-16 20:53
文章分类

全部博文(54)

文章存档

2010年(10)

2009年(24)

2008年(20)

分类:

2009-03-12 01:20:56

    学习perl中,写了一个插入排序:
 

#!/usr/bin/perl -w

use strict;
sub insertSort
{
        my ($i, $j, $key);
        for ($i = 1; $i < scalar(@_); $i++)
        {
                $key = $_[$i];
                $j = $i - 1;
                while (($j >= 0) && ($_[$j] > $key))
                {
                        $_[$j+1] = $_[$j];
                        $j--;
                }
                $_[$j+1] = $key;
        }
}

my @arr = (10, 21, 2, 1, 3, 45, 2, 932, 32, 27, 86, 65, 576, 434, 76753);
print "@arr\n";
print "After\n";
insertSort(@arr);
print "@arr\n";

阅读(1243) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~