【模拟+离散化】忙碌的小店

 忙碌的小店

 【问题描述】
    小M和小J 最近开了一家小店，由于他们的热情服务以及小店商品的质优价廉，前来购物的
人络绎不 ，但突如其来的忙碌让小M和小J有些措手不及，于是他们想知道从计时开始（0 时
刻）的S分钟内，他们可以休息的最长时间（休息即为没有人光顾小店）。
 【输入格式】
    第一行用空格隔开的两个整数N、S。表示前来购物的人数和此次统计持续的时间。此后N
行，每行两个整数表示每个顾客进入店铺的时间和离开的时间。
 【输出格式】
    一个整数，即小M 和小J 的最长休息时间。

 【输入样例】
3 10
0 3
4 5
7 8

 【输出样例】
2

 【评分方法】
    本题没有部分分，你的程序的输出只有和我们的答案完全一致才能获得满分，否则不得分。
 【数据规模和约定】
    对于60%的数据，保证N<=1000，S<=1000000
    对于100%的数据，保证N<=100000，S<=231

=====================

这道题原来高二的时候写过

居然错了

===================

type
  node=record
         b,e:longint;
       end;
var
  n,s:longint;
  ti:array[1..100000]of node;
procedure init;
begin
  assign(input,'shop.in');
  assign(output,'shop.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure qsort(s,t:longint);
var
  i,j:longint;
  x:node;
  tem:node;
begin
  x:=ti[(s+t)shr 1];
  i:=s; j:=t;
  repeat
    while (x.b<ti[j].b)or((x.b=ti[j].b)and(x.e<ti[j].e)) do dec(j);
    while (ti[i].b<x.b)or((x.b=ti[i].b)and(ti[i].e<x.e)) do inc(i);
    if i<=j then
      begin
        tem:=ti[j];
        ti[j]:=ti[i];
        ti[i]:=tem;
        inc(i); dec(j);
      end;
  until i>=j;
  if i<t then qsort(i,t);
  if s<j then qsort(s,j);
end;

procedure main;
var
  i:longint;
  las:longint;
  ans:longint;
begin
  readln(n,s);
  for i:=1 to n do
    readln(ti[i].b,ti[i].e);
  qsort(1,n);
  las:=0;     ans:=0;
  for i:=1 to n do
    begin
      if las<ti[i].b then
        begin
          if ti[i].b-las>ans then ans:=ti[i].b-las;
        end;
      if las<ti[i].e then las:=ti[i].e;
    end;
  if s-las>ans then ans:=s-las;
  writeln(ans);
end;

begin
  init;
  main;
  terminate;
end.