1999-04-09から1日間の記事一覧
明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (malloc) 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…
明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (malloc) 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…
