Submission #891094

Source Code Expand

$N=<>;
$_[++$i]=$_ for glob<>;
$%+=$_==$_[$_[$_]]for 1..$N;
print$%/2,$/

Submission Info

Submission Time
Task B - Friendly Rabbits
User x20
Language Perl (v5.18.2)
Score 200
Code Size 75 Byte
Status AC
Exec Time 564 ms
Memory 26624 KB

Compile Error

Name "main::i" used only once: possible typo at ./Main.pl line 2.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 15
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt, 1_06.txt, 1_07.txt, 1_08.txt, 1_09.txt, 1_10.txt, 1_11.txt
Case Name Status Exec Time Memory
0_00.txt AC 7 ms 768 KB
0_01.txt AC 7 ms 768 KB
0_02.txt AC 7 ms 768 KB
1_00.txt AC 7 ms 768 KB
1_01.txt AC 564 ms 26624 KB
1_02.txt AC 559 ms 26624 KB
1_03.txt AC 468 ms 26624 KB
1_04.txt AC 456 ms 26624 KB
1_05.txt AC 460 ms 26624 KB
1_06.txt AC 462 ms 26624 KB
1_07.txt AC 459 ms 26624 KB
1_08.txt AC 166 ms 10544 KB
1_09.txt AC 377 ms 22072 KB
1_10.txt AC 314 ms 18740 KB
1_11.txt AC 77 ms 5036 KB