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