５人の学生を 身長で ソート (配列)

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

５人の学生を 身長で ソート (配列)

Perl

$NINSU = 5;

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

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

@height = (178,    175,      173,     165,    179);
@name   = ("Sato", "Sanaka", "Takao", "Mike", "Masaki");

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

}
print "\n";

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

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

実行結果

L:\>perl lesson_12_089.pl

メ[ト前：

 1:Sato     178

 2:Sanaka   175

 3:Takao    173

 4:Mike     165

 5:Masaki   179
メ[ト後：

 1:Mike     165

 2:Takao    173

 3:Sanaka   175

 4:Sato     178

 5:Masaki   179