Submission #7506351

Source Code Expand

 use List::Util qw/ sum /;
 my $n = <>; sum( map { $_ * 10000 } 1 .. $n ) * 1 / $n;

Submission Info

Submission Time
Task A - AtCoder社の給料
User mp0liiu
Language Perl (v5.18.2)
Score 0
Code Size 84 Byte
Status WA
Exec Time 4 ms
Memory 640 KB

Compile Error

Useless use of division (/) in void context at ./Main.pl line 2.
./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
WA × 14
Set Name Test Cases
All 00_sample_01.txt, 00_sample_02.txt, test_100.txt, test_14.txt, test_29.txt, test_4.txt, test_42.txt, test_48.txt, test_54.txt, test_59.txt, test_71.txt, test_72.txt, test_84.txt, test_96.txt
Case Name Status Exec Time Memory
00_sample_01.txt WA 4 ms 640 KB
00_sample_02.txt WA 3 ms 640 KB
test_100.txt WA 3 ms 640 KB
test_14.txt WA 3 ms 640 KB
test_29.txt WA 4 ms 640 KB
test_4.txt WA 3 ms 640 KB
test_42.txt WA 3 ms 640 KB
test_48.txt WA 3 ms 640 KB
test_54.txt WA 3 ms 640 KB
test_59.txt WA 3 ms 640 KB
test_71.txt WA 3 ms 640 KB
test_72.txt WA 3 ms 640 KB
test_84.txt WA 3 ms 640 KB
test_96.txt WA 3 ms 640 KB