5人の学生を 身長・体重で ソート (関数ポインタ)
明解C言語 入門編 > 12. 構造体 >
5人の学生を 身長・体重で ソート (関数ポインタ)
Perl
$NINSU = 5; sub swap { my ($x, $y) = @_; $tmp = $$x; $$x = $$y; $$y = $tmp; } sub compare_height { my ($x, $y) = @_; return 1 if ($$x->{"height"} > $$y->{"height"}); return -1 if ($$x->{"height"} < $$y->{"height"}); return 0; } sub compare_weight { my ($x, $y) = @_; return 1 if ($$x->{"weight"} > $$y->{"weight"}); return -1 if ($$x->{"weight"} < $$y->{"weight"}); return 0; } sub sort { my ($data, $n, $compare) = @_; $k = $$n - 1; while ($k >= 0) { $j = -1; foreach $i(1..$k) { if ($compare->(\$$data[$i - 1], \$$data[$i]) > 0) { $j = $i - 1; &swap(\$$data[$i], \$$data[$j]); } } $k = $j; } } @data = ( {name => "Sato", height => 178, weight => 61.0}, {name => "Sanaka", height => 175, weight => 60.5}, {name => "Takao", height => 173, weight => 80.0}, {name => "Mike", height => 165, weight => 72.0}, {name => "Masaki", height => 179, weight => 77.5} ); print "ソート前:\n"; for (0..$NINSU-1) { printf("%2d:%-8s%4d%6.1f\n", $_ + 1, $data[$_]{"name"}, $data[$_]{"height"}, $data[$_]{"weight"}); } print "\n"; &sort(\@data, \$NINSU, \&compare_height); print "身長でソート後:\n"; for (0..$NINSU-1) { printf("%2d:%-8s%4d%6.1f\n", $_ + 1, $data[$_]{"name"}, $data[$_]{"height"}, $data[$_]{"weight"}); } print "\n"; &sort(\@data, \$NINSU, \&compare_weight); print "体重でソート後:\n"; for (0..$NINSU-1) { printf("%2d:%-8s%4d%6.1f\n", $_ + 1, $data[$_]{"name"}, $data[$_]{"height"}, $data[$_]{"weight"}); }
実行結果
L:\>perl lesson_12_097.pl
メ[ト前:
1:Sato 178 61.0
2:Sanaka 175 60.5
3:Takao 173 80.0
4:Mike 165 72.0
5:Masaki 179 77.5身長でメ[ト後:
1:Mike 165 72.0
2:Takao 173 80.0
3:Sanaka 175 60.5
4:Sato 178 61.0
5:Masaki 179 77.5体重でメ[ト後:
1:Sanaka 175 60.5
2:Sato 178 61.0
3:Mike 165 72.0
4:Masaki 179 77.5
5:Takao 173 80.0