結果
問題 | No.9009 改行区切りで与えられる数値データの合計値を求める(テスト用) |
ユーザー | shiCanoko_o |
提出日時 | 2019-05-14 22:57:01 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 277 ms / 3,000 ms |
コード長 | 273 bytes |
コンパイル時間 | 259 ms |
コンパイル使用メモリ | 5,332 KB |
実行使用メモリ | 55,732 KB |
最終ジャッジ日時 | 2023-09-27 03:54:42 |
合計ジャッジ時間 | 3,649 ms |
ジャッジサーバーID (参考情報) |
judge14 / judge12 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
4,428 KB |
testcase_01 | AC | 2 ms
4,416 KB |
testcase_02 | AC | 3 ms
4,464 KB |
testcase_03 | AC | 2 ms
4,408 KB |
testcase_04 | AC | 2 ms
4,592 KB |
testcase_05 | AC | 3 ms
4,476 KB |
testcase_06 | AC | 3 ms
4,500 KB |
testcase_07 | AC | 9 ms
5,556 KB |
testcase_08 | AC | 33 ms
9,340 KB |
testcase_09 | AC | 61 ms
14,536 KB |
testcase_10 | AC | 228 ms
45,620 KB |
testcase_11 | AC | 233 ms
46,820 KB |
testcase_12 | AC | 239 ms
47,552 KB |
testcase_13 | AC | 252 ms
48,536 KB |
testcase_14 | AC | 247 ms
49,332 KB |
testcase_15 | AC | 252 ms
50,464 KB |
testcase_16 | AC | 277 ms
55,732 KB |
testcase_17 | AC | 2 ms
4,528 KB |
testcase_18 | AC | 2 ms
4,468 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $total_number = <STDIN>; chomp ($total_number); my @numbers; for (my $count = 0; $count<$total_number; $count++){ my $number = <STDIN>; chomp ($number); push @numbers, $number; } #print "@numbers\n"; my $ans = 0; $ans += $_ for @numbers; print "$ans\n";