Submission #7506384

Source Code Expand

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

Submission Info

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

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 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 AC 4 ms 640 KB
00_sample_02.txt AC 3 ms 640 KB
test_100.txt AC 4 ms 640 KB
test_14.txt AC 4 ms 640 KB
test_29.txt AC 3 ms 640 KB
test_4.txt AC 3 ms 640 KB
test_42.txt AC 4 ms 640 KB
test_48.txt AC 4 ms 640 KB
test_54.txt AC 3 ms 640 KB
test_59.txt AC 4 ms 640 KB
test_71.txt AC 4 ms 768 KB
test_72.txt AC 4 ms 640 KB
test_84.txt AC 4 ms 640 KB
test_96.txt AC 4 ms 640 KB