2016海港

题解：

还是模拟（无聊啊！）。

没什么好说的，看程序吧！

var n,i,l,t,k,j,x,sum,ans:longint;

vis,a,time:array[0..300001]of longint;

begin

readln(n);

l:=1;

for
i:=1 to n do

begin

read(t,k);

for j:=1 to k do

begin

read(x);

inc(vis[x]);

if vis[x]=1 then inc(ans);

inc(sum);

a[sum]:=x;

time[sum]:=t;

end;

while time[l]<=t-86400 do

begin

dec(vis[a[l]]);

if vis[a[l]]=0 then dec(ans);

inc(l);

end;

writeln(ans);

end;

end.