第53回　Cを用いたPerl拡張入門―Inline::Cで体験してみよう！（3） | gihyo.jp

第53回　Cを用いたPerl拡張入門―Inline::Cで体験してみよう！（3） | gihyo.jp

（1）はこちら、（⁠2）はこちらから。 Perlのスタックを使った引数や戻り値の操作 （3）では、整数値を...概要を表示 （1）はこちら、（⁠2）はこちらから。 Perlのスタックを使った引数や戻り値の操作 （3）では、整数値を複数受け取り、その中から最大値、最小値、平均値を求めて返す次のPerlサブルーチンに該当するコードを、Inline::Cを用いて作成します。 my ($min, $max, $avg) = get_score_info(160, 230, 120, 210, 300); print "min: $min, max: $max, avg: $avg\n"; sub get_score_info { my @args = @_; ―（1） my $n = @args; ―（2） my $min = 0; my $max = 0; my $sum = 0; for (my $i = 0; $i < $n; $i++) { $sum += $args[$i]; ―（3） if ($i == 0