1999-04-07から1日間の記事一覧
明解Ｃ言語 入門編 > 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..…
明解Ｃ言語 入門編 > 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..…
