Submission #591364

Source Code Expand

my (%aa, %bb);
chomp(my @aa = split " ",<STDIN>);
chomp(my @bb = split " ",<STDIN>);
map { $aa{$_} = 1 } @aa;
map { $bb{$_} = 1 } @bb;
chomp(my $ball =  <STDIN>);
my %ans;
if ( defined $aa{$ball} ) {
    foreach(keys %bb){
        $ans{$_} = 1;
    }
}
if ( defined $bb{$ball} ) {
    foreach(keys %aa){
        $ans{$_} = 1;
    }
}

print scalar keys %ans;
print "\n";
print "$_\n" foreach sort keys %ans;

Submission Info

Submission Time
Task B - 袋とボール
User harubohhh
Language Perl (5.14.2)
Score 0
Code Size 429 Byte
Status WA
Exec Time 40 ms
Memory 1192 KiB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 100
Status
AC × 3
AC × 23
WA × 2
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt
All test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt, test-21.txt, test-22.txt, test-23.txt, test-24.txt, test-25.txt
Case Name Status Exec Time Memory
sample-01.txt AC 30 ms 1188 KiB
sample-02.txt AC 29 ms 1180 KiB
sample-03.txt AC 30 ms 1176 KiB
test-01.txt AC 30 ms 1176 KiB
test-02.txt AC 28 ms 1112 KiB
test-03.txt AC 29 ms 960 KiB
test-04.txt AC 28 ms 1108 KiB
test-05.txt AC 28 ms 1112 KiB
test-06.txt AC 29 ms 1180 KiB
test-07.txt AC 29 ms 1176 KiB
test-08.txt AC 30 ms 1168 KiB
test-09.txt AC 30 ms 1184 KiB
test-10.txt WA 30 ms 1056 KiB
test-11.txt AC 32 ms 1176 KiB
test-12.txt AC 32 ms 1056 KiB
test-13.txt AC 36 ms 1116 KiB
test-14.txt AC 32 ms 1184 KiB
test-15.txt AC 34 ms 1184 KiB
test-16.txt WA 32 ms 1180 KiB
test-17.txt AC 34 ms 1108 KiB
test-18.txt AC 31 ms 1108 KiB
test-19.txt AC 40 ms 1184 KiB
test-20.txt AC 34 ms 1192 KiB
test-21.txt AC 30 ms 1184 KiB
test-22.txt AC 31 ms 1056 KiB
test-23.txt AC 39 ms 1188 KiB
test-24.txt AC 29 ms 1184 KiB
test-25.txt AC 38 ms 1120 KiB