Submission #891645


Source Code Expand

$N = <>;
@a = split / /, <>;

$cnt = 0;
for($i = 0; $i < $N / 2; $i++){
	++$cnt if($a[$a[$i]-1] == $i+1);
}

print $cnt, "\n";

Submission Info

Submission Time
Task B - Friendly Rabbits
User chigiri
Language Perl (v5.18.2)
Score 0
Code Size 134 Byte
Status WA
Exec Time 44 ms
Memory 10700 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 200
Status
AC × 3
AC × 9
WA × 6
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 5 ms 512 KB
0_01.txt AC 3 ms 384 KB
0_02.txt AC 4 ms 384 KB
1_00.txt AC 3 ms 384 KB
1_01.txt AC 44 ms 10700 KB
1_02.txt AC 44 ms 10700 KB
1_03.txt WA 42 ms 10572 KB
1_04.txt WA 43 ms 10572 KB
1_05.txt WA 43 ms 10572 KB
1_06.txt WA 43 ms 10572 KB
1_07.txt AC 41 ms 10572 KB
1_08.txt WA 18 ms 4300 KB
1_09.txt AC 36 ms 8780 KB
1_10.txt AC 30 ms 7500 KB
1_11.txt WA 10 ms 2176 KB