Submission #4172
Source Code Expand
#!/usr/bin/perl use warnings; use strict; my $num = <STDIN>; chomp($num); my $ans = <STDIN>; chomp($ans); my @ans_num = (0, 0, 0, 0); for (my $i = 0; $i < $num; $i++) { my $buf = substr($ans, $i, 1); $buf--; $ans_num[$buf]++; } my $max = 0; foreach my $buf (@ans_num) { if ($max < $buf) { $max = $buf; } } my $min = $num; foreach my $buf (@ans_num) { if ($min > $buf) { $min = $buf; } } print STDOUT "$max $min"; exit;
Submission Info
Submission Time | |
---|---|
Task | A - センター採点 |
User | minasa |
Language | Perl (5.14.2) |
Score | 0 |
Code Size | 473 Byte |
Status | WA |
Exec Time | 30 ms |
Memory | 1188 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | all | ||
---|---|---|---|
Score / Max Score | 0 / 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 | WA | 30 ms | 1136 KB |
00_sample2.txt | WA | 27 ms | 1068 KB |
01_rnd_00.txt | WA | 27 ms | 128 KB |
01_rnd_01.txt | WA | 23 ms | 0 KB |
01_rnd_02.txt | WA | 23 ms | 0 KB |
01_rnd_03.txt | WA | 24 ms | 128 KB |
01_rnd_04.txt | WA | 24 ms | 128 KB |
01_rnd_05.txt | WA | 24 ms | 128 KB |
01_rnd_06.txt | WA | 24 ms | 128 KB |
01_rnd_07.txt | WA | 24 ms | 1052 KB |
01_rnd_08.txt | WA | 24 ms | 1188 KB |
01_rnd_09.txt | WA | 24 ms | 1056 KB |
01_rnd_10.txt | WA | 24 ms | 128 KB |
01_rnd_11.txt | WA | 24 ms | 128 KB |
01_rnd_12.txt | WA | 24 ms | 0 KB |
01_rnd_13.txt | WA | 24 ms | 128 KB |
01_rnd_14.txt | WA | 24 ms | 128 KB |
01_rnd_15.txt | WA | 24 ms | 128 KB |
01_rnd_16.txt | WA | 24 ms | 128 KB |
01_rnd_17.txt | WA | 24 ms | 128 KB |
01_rnd_18.txt | WA | 24 ms | 128 KB |
01_rnd_19.txt | WA | 24 ms | 128 KB |
02_all_1.txt | WA | 24 ms | 128 KB |
02_all_2.txt | WA | 24 ms | 128 KB |
02_all_3.txt | WA | 23 ms | 128 KB |
02_all_4.txt | WA | 24 ms | 128 KB |
03_mini_1.txt | WA | 24 ms | 128 KB |
03_mini_2.txt | WA | 24 ms | 1024 KB |
03_mini_3.txt | WA | 24 ms | 128 KB |
03_mini_4.txt | WA | 24 ms | 128 KB |