题目描述
小K是一个海港的海关工作人员，每天都有许多船只到达海港，船上通常有很多来自不同国家的乘客。
小K对这些到达海港的船只非常感兴趣，他按照时间记录下了到达海港的每一艘船只情况；对于第i艘到达的船，他记录了这艘船到达的时间ti (单位：秒)，船上的乘 客数星ki，以及每名乘客的国籍 x(i,1), x(i,2),…，x(i,k);。
小K统计了n艘船的信息，希望你帮忙计算出以每一艘船到达时间为止的24小时(24小时=86400秒）内所有乘船到达的乘客来自多少个不同的国家。
形式化地讲，你需要计算n条信息。对于输出的第i条信息，你需要统计满足 ti - 86400 < tp <= ti的船只p，在所有的x(p,j)中，总共有多少个不同的数。
输入输出格式
输入格式：
第一行输入一个正整数n，表示小K统计了 n艘船的信息。
接下来n行，每行描述一艘船的信息：前两个整数ti和ki分别表示这艘船到达海港的时间和船上的乘客数量，接下来ki个整数x(i,j)表示船上乘客的国7。
保证输入的ti是递增的，单位是秒；表示从小K第一次上班开始计时，这艘船在第 ti 秒到达海港。
保证 ， ，， 。
其中表示所有的ki的和。
输出格式：
输出n行，第i行输出一个整数表示第i艘船到达后的统计信息。
输入输出样例
输入样例#1：
3
1 4 4 1 2 2
2 2 2 3
10 1 3
输出样例#1：
3
4
4
输入样例#2：
4
1 4 1 2 2 3
3 2 2 3
86401 2 3 4
86402 1 5
输出样例#2：
3
3
3
4
说明
【样例解释1】
第一艘船在第1秒到达海港，最近24小时到达的船是第一艘船，共有4个乘客， 分别是来自国家4,1,2,2，共来自3个不同的国家；
第二艘船在第2秒到达海港，最近24小时到达的船是第一艘船和第二艘船，共有 4 + 2 = 6个乘客，分别是来自国家4,1,2,2,2,3，共来自4个不同的国家；
第三艘船在第10秒到达海港，最近24小时到达的船是第一艘船、第二艘船和第 三艘船，共有4+ 2+1=7个乘客，分别是来自国家4,1,2,2,2,3,3，共来自4个不同 的国家。
【样例解释2】
第一艘船在第1秒到达海港，最近24小时到达的船是第一艘船，共有4个乘客，分别是来自国家1,2,2,3，共来自3个不同的国家。
第二艘船在第3秒到达海港，最近24小时到达的船是第一艘船和第二艘船，共有4+2=6个乘客，分别是来自国家1,2,2,3,2,3，共来自3个不同的国家。
第三艘船在第86401秒到达海港，最近24小时到达的船是第二艘船和第三艘船，共有2+2=4个乘客，分别是来自国家2,3,3,4，共来自3个不同的国家。
第四艘船在第86402秒到达海港，最近24小时到达的船是第二艘船、第三艘船和第四艘船，共有2+2+1=5个乘客，分别是来自国家2,3,3,4,5，共来自4个不同的国家。
【数据范围】
这题可以直接暴力，但是只对了7个点，三个超时。
边读边运行。读入time[i] (船到达的时间)和人数(每个人来自的国家)，然后，用while取24小时内船数的最大值(x)，再将x条船里的来自不同国家的人数统计出来。就拿到7个点——70分。
代码如下：
const max=86400;
var n,i,ans,t,l,j,k:longint;
time:array[-1..1000]of int64;
m:array[0..1000]of longint;
a:array[1..1000,1..1000]of longint;
f:array[1..1000]of boolean;
begin
assign(input,'port.in');
assign(output,'port.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
fillchar(f,sizeof(f),false);
ans:=0;
read(time[i],m[i]);
for j:=1 to m[i] do read(a[i,j]);
t:=time[i];
l:=i;
while (abs(t-time[l-1])+1<=max)and(l>0) do dec(l);
for j:=l to i do
for k:=1 to m[j] do if f[a[j,k]]=false then begin inc(ans); f[a[j,k]]:=true; end;
writeln(ans);
end;
close(input);
close(output);
end.
更新后的算法：
可以多用一个数组，表示到当前的24小时内，每种人的数量，这样就可以减少没必要的循环。
如果当这艘船已经过了24小时，则将这艘船上的每种人的数量减去。
最后就很容易判断有多少种人。
代码如下：
var ans,n,head,tail,i,j,time,m,x:longint;
a:array[1..2,1..300000]of longint;
b:array[1..300000]of longint;
begin
readln(n);
head:=1; tail:=1;
for i:=1 to n do
begin
read(time,m);
for j:=tail to tail+m-1 do
begin
read(x);
a[1,j]:=time;
a[2,j]:=x;
inc(b[x]);
if b[x]-1=0 then inc(ans);
end;
readln;
while time-a[1,head]>=86400 do
begin
dec(b[a[2,head]]);
if b[a[2,head]]=0 then dec(ans);
inc(head);
end;
tail:=tail+m;
writeln(ans);
end;
end.