2016 NOIP第三题 海港

13 篇文章 0 订阅

题目:

这里写图片描述
这里写图片描述

代码:

const maxn=300000;
var x,time,k,ans,i,j,ii,n,head,tail:longint;
hash:array[1..maxn]of longint;
man:array[1..2,1..maxn]of longint;
begin
readln(n);
head:=1; tail:=1;
for i:=1 to n do
begin
read(time,k);
for j:=tail to tail+k-1 do
begin
read(x);
man[1,j]:=time;
man[2,j]:=x;
inc(hash[x]);
if hash[x]-1=0 then inc(ans);
end;
readln;
while time-man[1,head]>=86400 do
begin
dec(hash[man[2,head]]);
if hash[man[2,head]]=0 then dec(ans);
inc(head);
end;
tail:=tail+k;
writeln(ans);
end;
end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值