Submission #1986586
Source Code Expand
var ans, i, n, t: integer; a: array[1..100005] of integer; begin readln(n); for i := 1 to n do begin read(t); if a[t] = i then ans := ans + 1; a[i] := t; end; writeln(ans); end.
Submission Info
Submission Time | |
---|---|
Task | B - Friendly Rabbits |
User | masakt |
Language | Pascal (FPC 2.6.2) |
Score | 200 |
Code Size | 215 Byte |
Status | AC |
Exec Time | 12 ms |
Memory | 512 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 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 | 0 ms | 128 KB |
0_01.txt | AC | 0 ms | 128 KB |
0_02.txt | AC | 0 ms | 128 KB |
1_00.txt | AC | 0 ms | 128 KB |
1_01.txt | AC | 12 ms | 512 KB |
1_02.txt | AC | 11 ms | 512 KB |
1_03.txt | AC | 11 ms | 512 KB |
1_04.txt | AC | 11 ms | 512 KB |
1_05.txt | AC | 11 ms | 512 KB |
1_06.txt | AC | 11 ms | 512 KB |
1_07.txt | AC | 11 ms | 512 KB |
1_08.txt | AC | 4 ms | 256 KB |
1_09.txt | AC | 9 ms | 384 KB |
1_10.txt | AC | 8 ms | 384 KB |
1_11.txt | AC | 2 ms | 128 KB |