Submission #4150

Source Code Expand

my $num = <STDIN>;
#chomp $num;
my $ans = <STDIN>;
chomp $ans;
my @ans = split //, $ans;
my @clear = (0,0,0,0);
foreach my $s (@ans) {
    $clear[$s-1]++;
}
@clear = sort @clear;
print "$clear[3] $clear[0]\n";

Submission Info

Submission Time
Task A - センター採点
User whitebell
Language Perl (5.14.2)
Score 100
Code Size 221 Byte
Status AC
Exec Time 46 ms
Memory 812 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 30
Set Name Test Cases
all 00_sample1.txt, 00_sample2.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt, 02_all_1.txt, 02_all_2.txt, 02_all_3.txt, 02_all_4.txt, 03_mini_1.txt, 03_mini_2.txt, 03_mini_3.txt, 03_mini_4.txt
Case Name Status Exec Time Memory
00_sample1.txt AC 46 ms 128 KB
00_sample2.txt AC 19 ms 0 KB
01_rnd_00.txt AC 20 ms 128 KB
01_rnd_01.txt AC 21 ms 128 KB
01_rnd_02.txt AC 21 ms 128 KB
01_rnd_03.txt AC 21 ms 128 KB
01_rnd_04.txt AC 21 ms 128 KB
01_rnd_05.txt AC 21 ms 128 KB
01_rnd_06.txt AC 21 ms 128 KB
01_rnd_07.txt AC 21 ms 128 KB
01_rnd_08.txt AC 21 ms 128 KB
01_rnd_09.txt AC 21 ms 128 KB
01_rnd_10.txt AC 21 ms 128 KB
01_rnd_11.txt AC 21 ms 128 KB
01_rnd_12.txt AC 20 ms 128 KB
01_rnd_13.txt AC 20 ms 0 KB
01_rnd_14.txt AC 21 ms 128 KB
01_rnd_15.txt AC 21 ms 128 KB
01_rnd_16.txt AC 21 ms 128 KB
01_rnd_17.txt AC 21 ms 128 KB
01_rnd_18.txt AC 21 ms 128 KB
01_rnd_19.txt AC 21 ms 128 KB
02_all_1.txt AC 21 ms 128 KB
02_all_2.txt AC 21 ms 128 KB
02_all_3.txt AC 22 ms 128 KB
02_all_4.txt AC 20 ms 128 KB
03_mini_1.txt AC 21 ms 812 KB
03_mini_2.txt AC 21 ms 128 KB
03_mini_3.txt AC 20 ms 128 KB
03_mini_4.txt AC 21 ms 128 KB