防吞贴题

描述 Description
        羽毛笔和im是抽签到同一个考场的，她们突然闻到一阵刺鼻的化学试剂的气味。
     机灵鼠：（头都不抬）你们是考生么？还在门口磨蹭什么？快进来帮我忙！！……怎么还不进来？你们拖赛，拖赛，把你们的青春都拖掉赛……
     im：开…开策了>_<
     羽毛笔：哎呀~~机灵鼠大人要我们帮什么忙？^^
     机灵鼠：你们看这里的这些药，都是我研制的对付各种症状的解药。可是我一个不小心，每种药都小小地配错了一点原料，所以这些药都有可能在治愈某些病症的同时又使人患上某些别的病症……（im：那…那是解药还是毒药啊？！）……经过我天才的努力（背景：我是天才！！），终于弄清了每种药的具体性能（路人甲：那是你自己配的吗？-_-），我会把每种药能治的病症和能使人患上的病症列一张清单给你们，然后你们要根据这张清单找出能治愈所有病症的最少药剂组合……顺便说一声，病症的数目不超过10种（小呆：偶是好人吧^^），我的药是用不完的，就是说每种药剂都可以被重复使用。给你们的单子里第一行是病症的总数n，第二行是药剂的种类m（0<m<=100），以下有m行，每行有n个数字用空格隔开，文件的第i+2行的n个数字中，如果第j个数为1，就表示第i种药可以治愈病症j（如果患有这种病的话则治愈，没有这种病则无影响），如果为0表示无影响，如果为-1表示反而能使人得上这种病（无病患上，有病无影响）。我制的药任何两种性能都不同。你们只要给我用的最少的药剂数就可以了。
其实还有可能用尽了所有的药也不能将所有病治愈（真是不好意思嗬^^bb），那样的话你们只要写上“The patient will be dead.”就可以了。
     im：做不出来啊~~哇啊啊啊~~（暴走中）
     羽毛笔：哎呀~~im……来来吃药了。^^

三种病，m（<=100）种药，可能治不好某一种或几种病。
1代表能治好这种病，0代表无影响，-1代表会得上这种病
编译器：FPC 2.6.4
解法：宽搜（广度优先搜索）
true表示治好了病，false表示没治好
n1,n2,n3,t1,t2,t3：状态
a,b,c：可以治疗的病
l1,l2,l3,step：队列
front,rear：队头、队尾
以下是源程序
const failed='The patient will be dead.';
var m,front,rear,i:longint;
n1,n2,n3,t1,t2,t3:boolean;
a,b,c:array[1..100]of longint;
l1,l2,l3:array[1..1000000]of boolean;
step:array[1..1000000]of longint;
function check(x,y,z:boolean):boolean;
var k:longint;
begin
for k:=1 to m do
if(x=l1[k])and(y=l2[k])and(z=l3[k]) then begin check:=false; exit; end;
check:=true;
end;
begin
readln(m);
for i:=1 to m do
readln(a[i],b[i],c[i]);
front:=1; rear:=1;
l1[1]:=false; l2[1]:=false; l3[1]:=false;
step[1]:=0;
while front<=rear do
begin
n1:=l1[front]; n2:=l2[front]; n3:=l3[front];
for i:=1 to m do
begin
if a[i]=1 then t1:=true else if a[i]=-1 then t1:=false;
if b[i]=1 then t2:=true else if b[i]=-1 then t2:=false;
if c[i]=1 then t3:=true else if c[i]=-1 then t3:=false;
if check(t1,t2,t3)then
begin inc(rear); l1[rear]:=t1; l2[rear]:=t2; l3[rear]:=t3;
step[rear]:=step[front]+1;
if l1[rear] and l2[rear] and l3[rear] then
begin writeln(step[rear]); halt; end; end;
end;
inc(front);
end;
writeln(failed);
end.

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

1回复贴，共1页

<<返回vijos吧

分享到:

日	一	二	三	四	五	六