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