Submission #4332


Source Code Expand

#!/usr/local/bin/perl

my $number = <STDIN>;
chomp($number);
my $status = <STDIN>;
my @stt = (0,0,0,0);
for($ii=$number;$ii>0;$ii--){
	$stt[substr($status,$number-$ii,1)-1]++;
	}
my @sorts = sort { $a <=> $b } @stt;
my $output = " ";
my $ff=0;
my $dd=0;
for $yy (@stt){
	if($yy eq $sorts[3]){ if(!$ff){$output = $yy.$output; $ff++;}}
	if($yy eq $sorts[0]){ if(!$dd){$output = $output.$yy; $dd++}}
	}
print $output."\n";

Submission Info

Submission Time
Task A - センター採点
User MizunashiMana
Language Perl (5.14.2)
Score 100
Code Size 436 Byte
Status AC
Exec Time 21 ms
Memory 128 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 20 ms 0 KB
00_sample2.txt AC 21 ms 128 KB
01_rnd_00.txt AC 20 ms 0 KB
01_rnd_01.txt AC 21 ms 128 KB
01_rnd_02.txt AC 21 ms 128 KB
01_rnd_03.txt AC 20 ms 0 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 20 ms 128 KB
01_rnd_08.txt AC 19 ms 128 KB
01_rnd_09.txt AC 20 ms 128 KB
01_rnd_10.txt AC 21 ms 128 KB
01_rnd_11.txt AC 20 ms 128 KB
01_rnd_12.txt AC 21 ms 128 KB
01_rnd_13.txt AC 21 ms 128 KB
01_rnd_14.txt AC 21 ms 128 KB
01_rnd_15.txt AC 21 ms 128 KB
01_rnd_16.txt AC 20 ms 0 KB
01_rnd_17.txt AC 20 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 20 ms 128 KB
02_all_4.txt AC 21 ms 128 KB
03_mini_1.txt AC 21 ms 0 KB
03_mini_2.txt AC 21 ms 128 KB
03_mini_3.txt AC 21 ms 0 KB
03_mini_4.txt AC 21 ms 128 KB