4.12.2 練習問題

前の問題で作成したサブルーチンを使用して、1から1000までの合計を求めるプログラムを書いてください。

何を求めているのかよくわからない問題だなぁ。
と思いつつ、前のプログラムをちょっと削って足す。

#!/usr/bin/perl -w
use strict;

my @fred = 1..1000;
my $fred_total = &total(@fred);
print "The total of \@fred is $fred_total.\n";


sub total {
　　my $sum = 0;
　　foreach (@_) {
　　　　$sum += $_;
　　}
　　$sum;
}

動いてる。
で、解答を見る。
...1行で書けますよ、という問題だったのかな？