2016海港
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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.
以上是关于2016海港的主要内容，如果未能解决你的问题，请参考以下文章