1999-04-08から1日間の記事一覧
明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長・体重で ソート (関数ポインタ) 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->…
明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長・体重で ソート (関数ポインタ) 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->…
