日志分析题解

日志分析(log)

【问题描述】

M 海运公司最近要对旗下仓库的货物进出情况进行统计。目前他们所拥有的唯一记录就是一个记录集装箱进出情况的日志。该日志记录了两类操作：第一类操作为集装箱入库操作，以及该次入库的集装箱重量；第二类操作为集装箱的出库操作。这些记录都严格按时间顺序排列。集装箱入库和出库的规则为先进后出，即每次出库操作出库的集装箱为当前在仓库里所有集装箱中最晚入库的集装箱。

出于分析目的，分析人员在日志中随机插入了若干第三类操作——查询操作。分析日志时，每遇到一次查询操作，都要报告出当前仓库中最大集装箱的重量。

【输入文件】

输入文件log.in包含N+1 行：

第一行为1 个正整数N，对应于日志内所含操作的总数。

接下来的N 行，分别属于以下三种格式之一：

格式1: 0 X //一次集装箱入库操作，正整数X表示该次入库的集装箱的重量

格式2: 1 //一次集装箱出库操作，（就当时而言）最后入库的集装箱出库

格式3: 2 //一次查询操作，要求分析程序输出当前仓库内最大集装箱的重量

当仓库为空时你应该忽略出库操作，当仓库为空查询时你应该输出0。

【输出文件】

输出文件log.out输出行数等于日志中查询操作的次数。每行为一个正整数，表示查询结果。

【样例输入】

13

0 1

0 2

2

0 4

0 2

2

1

2

1

1

2

1

2

【样例输出】

2

4

4

1

0

【数据规模与约定】

对于20%的数据，有N≤10；

对于40%的数据，有N≤1000；

对于100%的数据，有N≤200000，X≤108。

题解：

1.入库、出库、查询三个操作分别用三个函数过程编写，以防程序过乱；

2.库的储存用栈实现；

3.查询操作需要用二叉堆实现；

4.入库时要进行堆排序操作；

5.出库时要相应的对变量进行更新。

var f,h,fa,ha:array[0..200001]of longint;
    exist:array[0..200001]of boolean;
    n,i,x,y,top,m,sum:longint;

procedure swap(var l,r:longint);
var t:longint;
begin
  t:=l; l:=r; r:=t;
end;

procedure downput(p:longint);
var s:longint;
begin
  s:=p<<1;
  if s>sum then exit;
  if (s+1<=sum)and(f[s+1]>f[s]) then inc(s);
  if f[p]<f[s] then
  begin
    swap(f[p],f[s]); swap(fa[p],fa[s]);
    downput(s);
  end;
end;

procedure upput(s:longint);
var p:longint;
begin
  if s=1 then exit;
  p:=s>>1;
  if f[p]<f[s] then
  begin
    swap(f[p],f[s]); swap(fa[p],fa[s]);
    upput(p);
  end;
end;

procedure search;
var t:longint;
begin
  while (not exist[fa[1]])and(sum>0) do
  begin
    if sum=1 then
    begin
      dec(sum); break;
    end;
    swap(f[1],f[sum]); swap(fa[1],fa[sum]);
    dec(sum); downput(1);
  end;
  if sum>0 then writeln(f[1]) else writeln(0);
end;

procedure outset;
begin
  h[top]:=0; exist[ha[top]]:=false; dec(top);
end;

procedure inset(s:longint);
begin
  inc(m); exist[m]:=true; inc(top); h[top]:=s; ha[top]:=m;
  inc(sum); fa[sum]:=m; f[sum]:=s; upput(sum);
end;

begin
  assign(input,'log.in'); reset(input);
  assign(output,'log.out'); rewrite(output);
  read(n); top:=0; m:=0; sum:=0;
  fillchar(exist,sizeof(exist),false);
  for i:=1 to n do
  begin
    read(x);
    if x=0 then
    begin
      read(y); inset(y);
    end;
    if x=1 then outset;
    if x=2 then search;
  end;
  close(input); close(output);
end.