[Luogu OJ P1433][2013.10.18]DFS基础题-吃奶酪

近期第一次写DFS，纪念一下

题目描述

房间里放着n块奶酪。一只小老鼠要把它们都吃掉，问至少要跑多少距离？老鼠一开始在(0,0)点处。

 

输入格式

第一行一个数n  (n<=15)
接下来每行2个，表示第i块奶酪的坐标。
两点之间的距离公式=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))

 

输出格式

一个数，表示要跑的最少距离，保留2位小数。

 

样例输入 

4
1 1
1 -1
-1 1
-1 -1

样例输出 

7.41

明显的搜索、、、n<=15

数据不强，就加了一步优化  if xx>Iris Then Exit;

有兴趣的话还可以把各点间距离存起来、、、

搜索+回溯、

不详细解释了、

Var
  x,y:Array[0..21] of Double;
  Used:Array[0..21] of Boolean;
  i,n:Integer;
  xx,Iris:Extended;
Procedure DFS(i,t:Integer;xx:Double);
  Var
    j:integer;
  Begin
    if xx>Iris Then Exit;
    if t=n then if xx<Iris Then Iris:=xx;
    For j:=1 to n do
      if Not Used[j] then
        Begin
          Used[j]:=True;
          xx:=xx+Sqrt(Sqr(x[i]-x[j])+Sqr(y[i]-y[j]));
          t:=t+1;
          DFS(j,t,xx);
          t:=t-1;
          xx:=xx-Sqrt(Sqr(x[i]-x[j])+Sqr(y[i]-y[j]));
          Used[j]:=False;
        End;
  End;
Begin
  Read(n);
  For i:=1 to n do
    Read(x[i],y[i]);
  Fillchar(Used,Sizeof(Used),False);
  Iris:=Maxlongint Shr 1;
  DFs(0,0,0);
  Writeln(Iris:0:2);
End.

评测详情

编译成功

• 测试点1：通过该数据点。得分10，耗时 46 ms，内存 2166 kb。
• 测试点2：通过该数据点。得分10，耗时 0 ms，内存 2170 kb。
• 测试点3：通过该数据点。得分10，耗时 15 ms，内存 2166 kb。
• 测试点4：通过该数据点。得分10，耗时 0 ms，内存 2170 kb。
• 测试点5：通过该数据点。得分10，耗时 953 ms，内存 2166 kb。
• 测试点6：通过该数据点。得分10，耗时 62 ms，内存 2170 kb。
• 测试点7：通过该数据点。得分10，耗时 0 ms，内存 2170 kb。
• 测试点8：通过该数据点。得分10，耗时 0 ms，内存 2170 kb。
• 测试点9：通过该数据点。得分10，耗时 515 ms，内存 2166 kb。
• 测试点10：通过该数据点。得分10，耗时 0 ms，内存 2170 kb。