[USACO 1.2.1] Milking Cows
2011-11-20 17:17
330 查看
[题目描述]
Milking Cows
挤牛奶
三个农民每天清晨5点起床,然后去牛棚给3头牛挤奶。第一个农民在300时刻(从5点开始计时,秒为单位)给他的牛挤奶,一直到1000时刻。第二个农民在700时刻开始,在 1200时刻结束。第三个农民在1500时刻开始2100时刻结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300时刻到1200时刻),而最长的无人挤奶的连续时间(从挤奶开始一直到挤奶结束)为300秒(从1200时刻到1500时刻)。
你的任务是编一个程序,读入一个有N个农民(1 <= N <= 5000)挤N头牛的工作时间列表,计算以下两点(均以秒为单位):
最长至少有一人在挤奶的时间段。
最长的无人挤奶的时间段。
300 1000
700 1200
1500 2100
一行,两个整数,即题目所要求的两个答案。
[解题思路]
题目模型很简单,可以看做是给定N条线段,有交的线段可以合并,问合并后最长的线段,与最长的线段间距离。
自然先排序,以x为第一关键字,y为第二关键字离散每条线段,然后模拟合并每条线段,统计答案即可,时间复杂度O(NlogN+N)。
[Code]
Milking Cows
挤牛奶
三个农民每天清晨5点起床,然后去牛棚给3头牛挤奶。第一个农民在300时刻(从5点开始计时,秒为单位)给他的牛挤奶,一直到1000时刻。第二个农民在700时刻开始,在 1200时刻结束。第三个农民在1500时刻开始2100时刻结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300时刻到1200时刻),而最长的无人挤奶的连续时间(从挤奶开始一直到挤奶结束)为300秒(从1200时刻到1500时刻)。
你的任务是编一个程序,读入一个有N个农民(1 <= N <= 5000)挤N头牛的工作时间列表,计算以下两点(均以秒为单位):
最长至少有一人在挤奶的时间段。
最长的无人挤奶的时间段。
PROGRAM NAME: milk2
INPUT FORMAT
Line 1: | 一个整数N。 |
Lines 2..N+1: | 每行两个小于1000000的非负整数,表示一个农民的开始时刻与结束时刻。 |
SAMPLE INPUT (file milk2.in)
3300 1000
700 1200
1500 2100
OUTPUT FORMAT
一行,两个整数,即题目所要求的两个答案。
SAMPLE OUTPUT (file milk2.out)
900 300[解题思路]
题目模型很简单,可以看做是给定N条线段,有交的线段可以合并,问合并后最长的线段,与最长的线段间距离。
自然先排序,以x为第一关键字,y为第二关键字离散每条线段,然后模拟合并每条线段,统计答案即可,时间复杂度O(NlogN+N)。
[Code]
{ ID: zane2951 PROG: milk2 LANG: PASCAL } program milk2; var x,y,lx,ly:array[0..5011] of longint; ans1,ans2,n,i,tot,xx,yy:longint; //-----------qs------------ procedure qs(s,t:longint); var i,j,cex,cey,tmp:longint; begin i:=s; j:=t; cex:=x[(i+j)>>1]; cey:=y[(i+j)>>1]; repeat while (x[i]<cex) or (x[i]=cex) and (y[i]<cey) do inc(i); while (x[j]>cex) or (x[j]=cex) and (y[j]>cey) do dec(j); if i<=j then begin tmp:=x[i]; x[i]:=x[j]; x[j]:=tmp; tmp:=y[i]; y[i]:=y[j]; y[j]:=tmp; inc(i); dec(j); end; until i>j; if i<t then qs(i,t); if s<j then qs(s,j); end; //----------main----------- begin assign(input,'milk2.in'); reset(input); assign(output,'milk2.out'); rewrite(output); readln(n); for i:=1 to n do readln(x[i],y[i]); qs(1,n); tot:=0; ans1:=0; x[n+1]:=1111111; y[n+1]:=1111111; xx:=x[1]; yy:=y[1]; for i:=2 to n+1 do if (x[i]>=xx) and (x[i]<=yy) then if y[i]>yy then yy:=y[i] else else begin if yy-xx>ans1 then ans1:=yy-xx; inc(tot); lx[tot]:=xx; ly[tot]:=yy; xx:=x[i]; yy:=y[i]; end; ans2:=0; for i:=2 to tot do if lx[i]-ly[i-1]>ans2 then ans2:=lx[i]-ly[i-1]; writeln(ans1,'':1,ans2); close(input); close(output); end.
相关文章推荐
- usaco 1.2.1 Milking Cows 挤牛奶
- usaco 1.2.1 Milking Cows
- USACO 1.2.1 Milking Cows 挤牛奶
- USACO 1.2.1 Milking Cows
- Usaco 1.2.1 挤牛奶(Milking Cows)
- usaco1.2.1 Milking Cows
- USACO1.2.1 Milking Cows (milk2)
- USACO Section 1.2.1 Milking Cows
- USACO 1.2.1 Milking Cows
- USACO1.2.1 Milking Cows(挤牛奶)
- USACO1.2.1--Milking Cows
- USACO1.2.1 Milking Cows (milk2)
- USACO之Section1.2.1 Milking Cows [其他]
- USACO 1.2.1 Milking Cows
- USACO 1.2.1 - MIlking Cows(模拟)
- USACO 1.2.1 Milking Cows(milk2)
- USACO 1.2.1 Milking Cows
- USACO1.2.1 Milking Cows 给奶牛挤奶
- usaco 1.2.1 Milking Cows 题解
- USACO 1.2.1 Milking Cows