５人の学生の身長を ソート

明解Ｃ言語 入門編 > 12. 構造体 >

５人の学生の身長を ソート

Perl

$NINSU = 5;

sub swap
{
    my ($x, $y) = @_;
    $tmp = $$x;
    $$x  = $$y;
    $$y  = $tmp;
}

sub sort
{
    my ($data, $n) = @_;
    
    $k = $$n - 1;
    while ($k >= 0)
    {
        $j = -1;
        foreach $i(1..$k)
        {
            if ($$data[$i - 1] > $$data[$i])
            {
                $j = $i - 1;
                &swap(\$$data[$i], \$$data[$j]);
            }
        }
        $k = $j;
    }
}

@height = (178, 175, 173, 165, 179);

print "ソート前：\n";
for (0..$NINSU-1)
{
    printf("%2d:%4d\n", $_ + 1, $height[$_]);
}
print "\n";

&sort(\@height, \$NINSU);

print "ソート後：\n";
for (0..$NINSU-1)
{
    printf("%2d:%4d\n", $_ + 1, $height[$_]);
}

実行結果

L:\>perl lesson_12_088.pl

メ[ト前：

 1: 178

 2: 175

 3: 173

 4: 165

 5: 179
メ[ト後：

 1: 165

 2: 173

 3: 175

 4: 178

 5: 179