日常训练20161018 证据

有一幅n个点,m条边的无向图,取一些边使得图是一个由k棵树构成的森林并且分数最大。分数定义为边权积,但图中有若干坏点,坏点所在联通块的边权不计入内。求最大分数。若无方案输出-1。

贪心的思想,一开始先连好点之间的边,再连坏点之间的边,若还需要继续连边,则必须连好点与坏点之间的边,会损失一些权值,每次挑最小损失的联通块连到坏点即可。(比损失的时候对乘积取log就能比较大小了)

type
  rec=record
        v:extended;
        i:longint;
      end;
const
  p=1000000007;
var
  heap:array[0..200050] of rec;
  fact,x,y,z,fa,flag,chs:array[0..200050] of longint;
  tot:array[0..200050] of extended;
  n,m,k,i,cnt:longint;
  ans:int64;
  t:rec;
procedure swap(var a,b:longint);
  var t:longint;
  begin t:=a;a:=b;b:=t;end;
procedure sort(l,r:longint);
  var
    i,j,e:longint;
  begin
    i:=l;j:=r;e:=z[(l+r)>>1];
    repeat
      while z[i]>e do inc(i);
      while e>z[j] do dec(j);
      if not (i>j) then
        begin
          swap(x[i],x[j]);
          swap(y[i],y[j]);
          swap(z[i],z[j]);
          inc(i);dec(j);
        end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;
function find(x:longint):longint;
  begin
    if fa[x]=x then exit(x);
    fa[x]:=find(fa[x]);
    exit(fa[x]);
  end;
procedure choose_useful;
  var
    i,f1,f2:longint;
  begin
    for i:=1 to m do
      begin
        if (fact[x[i]]=0) or (fact[y[i]]=0) then continue;
        f1:=find(x[i]);
        f2:=find(y[i]);
        if (k>0)and(f1<>f2) then
          begin
            dec(k);
            fa[f1]:=f2;
            tot[f2]:=tot[f1]+tot[f2]+ln(z[i]);
            chs[i]:=1;
            if (k=0) then exit;
          end;
      end;
  end;
procedure choose_useless;
  var
    i,f1,f2:longint;
  begin
    for i:=1 to m do
      begin
        if (fact[x[i]]=1) or (fact[y[i]]=1) then continue;
        f1:=find(x[i]);
        f2:=find(y[i]);
        if (k>0)and(f1<>f2) then
          begin
            dec(k);
            fa[f1]:=f2;
            if (k=0) then exit;
          end;
      end;
  end;
procedure heap_up(x:longint);
  var
    t:rec;
  begin
    while (x>1)and(heap[x].v<heap[x>>1].v) do
      begin
        t:=heap[x];heap[x]:=heap[x>>1];heap[x>>1]:=t;
        x:=x>>1;
      end;
  end;
procedure heap_down(x:longint);
  var
    t:rec;
    e:longint;
  begin
    while (x<<1<=cnt)and(heap[x].v>heap[x<<1].v)or(x<<1+1<=cnt)and(heap[x].v>heap[x<<1+1].v) do
      begin
        if (x<<1+1<=cnt)and(heap[x<<1+1].v<heap[x<<1].v)
          then e:=x<<1+1
          else e:=x<<1;
        t:=heap[x];heap[x]:=heap[e];heap[e]:=t;
        x:=e;
      end;
  end;
procedure push(t:rec);
  begin
    inc(cnt);
    heap[cnt]:=t;
    heap_up(cnt);
  end;
function poop:rec;
  begin
    poop:=heap[1];
    heap[1]:=heap[cnt];
    dec(cnt);
    heap_down(1);
  end;
procedure print(x:longint);
  begin
    writeln(x);
    close(input);close(output);
    halt;
  end;
begin
  assign(input,'evidence.in');reset(input);
  assign(output,'evidence.out');rewrite(output);
  read(n,m,k);k:=n-k;
  for i:=1 to n do read(fact[i]);
  for i:=1 to m do read(x[i],y[i],z[i]);
  for i:=1 to n do fa[i]:=i;
  sort(1,m);
  if (k>0) then choose_useful;
  if (k>0) then choose_useless;
  for i:=1 to m do
    if (fact[x[i]]<>fact[y[i]]) then
      begin
        if (fact[y[i]]=1) then swap(x[i],y[i]);
        flag[find(x[i])]:=1;
      end;
  for i:=1 to n do
    if (flag[i]=1) then
      begin
        t.v:=tot[i];
        t.i:=i;
        push(t);
      end;
  while (cnt>0)and(k>0) do
    begin
      t:=poop;
      flag[t.i]:=2;
      dec(k);
    end;
  if (k>0) then print(-1);
  ans:=1;
  for i:=1 to m do
    if (chs[i]=1)and(flag[find(x[i])]<2)
      then ans:=ans * z[i] mod p;
  print(ans);
end.
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
智慧校园整体解决方案是响应国家教育信息化政策,结合教育改革和技术创新的产物。该方案以物联网、大数据、人工智能和移动互联技术为基础,旨在打造一个安全、高效、互动且环保的教育环境。方案强调从数字化校园向智慧校园的转变,通过自动数据采集、智能分析和按需服务,实现校园业务的智能化管理。 方案的总体设计原则包括应用至上、分层设计和互联互通,确保系统能够满足不同用户角色的需求,并实现数据和资源的整合与共享。框架设计涵盖了校园安全、管理、教学、环境等多个方面,构建了一个全面的校园应用生态系统。这包括智慧安全系统、校园身份识别、智能排课及选课系统、智慧学习系统、精品录播教室方案等,以支持个性化学习和教学评估。 建设内容突出了智慧安全和智慧管理的重要性。智慧安全管理通过分布式录播系统和紧急预案一键启动功能,增强校园安全预警和事件响应能力。智慧管理系统则利用物联网技术,实现人员和设备的智能管理,提高校园运营效率。 智慧教学部分,方案提供了智慧学习系统和精品录播教室方案,支持专业级学习硬件和智能化网络管理,促进个性化学习和教学资源的高效利用。同时,教学质量评估中心和资源应用平台的建设,旨在提升教学评估的科学性和教育资源的共享性。 智慧环境建设则侧重于基于物联网的设备管理,通过智慧教室管理系统实现教室环境的智能控制和能效管理,打造绿色、节能的校园环境。电子班牌和校园信息发布系统的建设,将作为智慧校园的核心和入口,提供教务、一卡通、图书馆等系统的集成信息。 总体而言,智慧校园整体解决方案通过集成先进技术,不仅提升了校园的信息化水平,而且优化了教学和管理流程,为学生、教师和家长提供了更加便捷、个性化的教育体验。
经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。 经导师精心指导并认可、获 98 分的毕业设计项目!【项目资源】:微信小程序。【项目说明】:聚焦计算机相关专业毕设及实战操练,可作课程设计与期末大作业,含全部源码,能直用于毕设,经严格调试,运行有保障!【项目服务】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值