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 |
|
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 |