解题报告 Loongint 的旅行安排

1.        题目

Loongint的旅行安排

【Description】

Loongint和MM要出去旅行，出行前规划旅行方案时，MM给Loongint出了一个难题。她说，在她心中，不同的地方能给她不同的感受，而感受可以用喜爱值Li表示出来，她希望这次旅行能正好得到W的喜爱值。为了考验Loongint是否爱他，她只是给了Loongint所有的Li和W值，却并不告诉Loongint哪个是哪个…Loongint手头比较紧，只能支付去三个地方的费用，所以Loongint必须从这些数中找出三个Li和一个W，并且使W尽量的大。

Loongint一心想和MM去旅行，哪里有时间想这个问题，所以，交给了Hzoi同仁的你…

【Input】

输入数据有两组（为了防止No Solution骗分J）。

对于每一组，第一行n表示有n个数值，接下来n行为每个数值的大小。

【Output】

两组输出。分别为每组的答案。如果可以找出三个Li和一个W，那么就输出最大的W，如果不能，就输出No Solution。

【Sample Input】

4

5

5

5

5

4

1

2

3

6

【Sample Output】

No Solution

6

【Hint】

对于30%的数据，1=<n<=100

对于100%的数据，1<=n<=1000，Li和W都属于[-536870911,536870911]

2.        算法

其实这是一个 HASH ，首先将任意两个数的和处理出来，然后用 HASH 存储这个和是否存在，这样查找的速度才可以满足要求。

枚举 w ，枚举一个 L[i] ，然后，当他们两个的差是存在的，并且加出这个差的那两个数中没有你枚举的那个 L[i] ，就是答案了。

3.        注意事项

注意记录每个和由哪两个数加出来。

还有，此处的 HASH 函数必须是那个和 mod 999983 的余数。。。。。。因为出题人的标程是这样的，坑爹啊！

4.        代码

HASH （Liukeke）

program liukeke;

type pointer=^rec;

       rec=record

   a,b,data:longint;

   next:pointer;

   end;

 

var

  hash:array[-999983..999983] of pointer;

  num:array[0..1000] of longint;

  p:pointer;

  n,zu,i,j,ans:longint;

 

function find(x:longint):boolean;

var

  p:pointer;

  temp:longint;

begin

  temp:=x mod 999983;

  p:=hash[temp];

  while p<>nil do

  begin

    if (p^.a<>num[i])and(p^.b<>num[i])and(p^.a<>num[j])and(p^.b<>num[j])then

  if p^.data=x then exit(true);

    p:=p^.next;

  end;

  exit(false);

end;

 

begin

  assign(input,'plan.in');reset(input);

  assign(output,'plan.out');rewrite(output);

  for zu:=1 to 2 do

  begin

    readln(n);

for i:=1 to n do

  readln(num[i]);

for i:=-999983 to 999983 do

  hash[i]:=nil;

 

for i:=1 to n do

  for j:=i+1 to n do

  begin

    new(p);

p^.a:=num[i];

p^.b:=num[j];

p^.data:=num[i]+num[j];

p^.next:=hash[(num[i]+num[j]) mod 999983];

hash[(num[i]+num[j])mod 999983]:=p;

  end;

ans:=-536870912;

for i:=1 to n do

  for j:=1 to n do

  if i<>j then

    if find(num[i]-num[j]) and (num[i]>ans)

  then ans:=num[i];

    if ans<>-536870912 then

writeln(ans)

else writeln('No Solution');

  end;

  close(input);

  close(output);

end.

 

转载于:https://www.cnblogs.com/SueMiller/archive/2011/10/15/2213123.html