Submission #32526

ソースコード

$n = <STDIN>;chomp($n);
$v[0] = 0;
@temp = split(/ /,<STDIN>);chomp(@temp);
for($i=1; $i<=$n; $i++){ 
        $v[$i] = $v[$i-1] + $temp[$i-1]; 
}
 
for($i=0; $i<=$n;$i++){
        if($i){print " ";}
        print $v[$i];
}
print "\n";
 
$m = <STDIN>;chomp($m);
for($i=1; $i<=$m; $i++){
        ($a,$b) = split(/ /,<STDIN>);chomp($a,$b);
        print $v[$b]-$v[$a-1]."\n";
}

ステータス

項目	データ
問題	0733 - プログラミング入門：累積和
ユーザー名	PerlC
投稿日時	2018-04-08 23:08:29
言語	Perl
状態	Accepted
得点	5
ソースコード長	356 Byte
最大実行時間	1351 ms
最大メモリ使用量	201280 KB

セット

	セット	得点	Cases
1	ALL	5 / 5	*

テストケース

ファイル名	状態	実行時間	メモリ使用量	#
Input01	AC	969 ms	148492 KB	1
Input02	AC	686 ms	157084 KB	1
Input03	AC	750 ms	166568 KB	1
Input04	AC	1351 ms	183856 KB	1
Input05	AC	1328 ms	201280 KB	1