【带权并查集】BZOJ1202(HNOI2005)[狡猾的商人]题解

题目概述

调查一位商人的账本，账本上记录了 $n$ 个月以来的收入情况。所谓一段时间内的总收入，就是这段时间内每个月的收入额的总和。共看了 $m$ 次账本，只能看某段时间内账本上记录的收入情况，并且只能记住这段时间内的总收入。根据记住的这些信息来判断账本是不是假的。

解题报告

带权并查集套路题，每次多出来一条信息 $(x,y,z)$ 可以看做是 $x-1$ 向 $y$ 连边，且 $S_y-S_{x-1}=z$ ，那么这样就可以判断 $[L,R]$ 的区间和是否已知，所以和题目里给的信息核对一下就行了。

示例程序

QAQ果断偷懒，这是以前写的pascal代码。

var t,n,m,i:longint;
    father,sum:array[0..105] of longint;
    can:boolean;
 procedure init;
  var i:longint;
   begin
     readln(n,m);
   end;
 function get(x:longint):longint;
  var fa:longint;
   begin
     if father[x]=x then exit(x);
     fa:=father[x];
     father[x]:=get(father[x]);
     inc(sum[x],sum[fa]);
     exit(father[x]);
   end;
 procedure main;
  var i,x,y,fx,fy,tot:longint;
   begin
     can:=true;
     for i:=0 to n do begin father[i]:=i;sum[i]:=0; end;
     for i:=1 to m do
       begin
         readln(x,y,tot);
         if not can then continue;
         fx:=get(x-1);
         fy:=get(y);
         if fx<>fy then
           begin
             father[fx]:=fy;
             sum[fx]:=sum[y]-sum[x-1]-tot;
           end else if sum[y]-sum[x-1]<>tot then can:=false;
       end;
   end;
 procedure print;
  begin
    if can then writeln('true')
           else writeln('false');
  end;
begin
  assign(input,'program.in');reset(input);
  assign(output,'program.out');rewrite(output);
  readln(t);
  for i:=1 to t do
    begin
      init;
      main;
      print;
    end;
  close(input);close(output);
end.