[4.12] 練習問題2

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

プログラムはこちら。

#! /usr/local/bin/perl
# ex4-2sample program

use strict;
use warnings;

my @fred = 1..1000;
my $fred_total = &total(@fred);
print "1から1000までの合計は、$fred_totalです。\n";

sub total{
    my @list = @_;
    my $ans;
    foreach (@list){
	$ans += $_;
    }
    $ans;
}

出力結果はこちら。

1から1000までの合計は、500500です。

問題なし！