洛谷P1220 关路灯

关路灯

题目描述

某一村庄在一条路线上安装了n盏路灯，每盏灯的功率有大有小（即同一段时间内消耗的电量有多有少）。老张就住在这条路中间某一路灯旁，他有一项工作就是每天早上天亮时一盏一盏地关掉这些路灯。

为了给村里节省电费，老张记录下了每盏路灯的位置和功率，他每次关灯时也都是尽快地去关，但是老张不知道怎样去关灯才能够最节省电。他每天都是在天亮时首先关掉自己所处位置的路灯，然后可以向左也可以向右去关灯。开始他以为先算一下左边路灯的总功率再算一下右边路灯的总功率，然后选择先关掉功率大的一边，再回过头来关掉另一边的路灯，而事实并非如此，因为在关的过程中适当地调头有可能会更省一些。

现在已知老张走的速度为1m/s，每个路灯的位置（是一个整数，即距路线起点的距离，单位：m）、功率（W），老张关灯所用的时间很短而可以忽略不计。

请你为老张编一程序来安排关灯的顺序，使从老张开始关灯时刻算起所有灯消耗电最少（灯关掉后便不再消耗电了）。

输入输出格式

输入格式：

文件第一行是两个数字n(0<n<50，表示路灯的总数)和c(1<＝c<=n老张所处位置的路灯号)；

接下来n行，每行两个数据，表示第1盏到第n盏路灯的位置和功率。

输出格式：

一个数据，即最少的功耗(单位：J，1J＝1W·s)。

输入输出样例

输入样例#1：

5 3
2 10
3 20
5 20
6 30
8 10               

输出样例#1：

270  

分析：这题数据不大可以直接搜索，每次往左右扩展节点，搜过的标记不用扩展。

代码

const
  maxn=100;
var
  a,b:array[0..maxn] of longint;
  f:array[0..maxn] of boolean;
  i,j,ans,sum,n,x:longint;


procedure dfs(dep,s1,s3,s2:longint);
var
  i:longint;
begin
  if s3>=ans then exit;
  if s1=n then
    begin
      if s3<ans then ans:=s3;
      exit;
    end;
  i:=dep+1;
  if i>n then exit;
  while (i<n) and (f[i]) do inc(i);
  if not f[i] then begin f[i]:=true;dfs(i,s1+1,s3+abs(a[i]-a[dep])*s2,s2-b[i]);f[i]:=false;end;
  i:=dep-1;
  if i<1 then exit;
  while (i>1) and (f[i]) do dec(i);
  if not f[i] then begin f[i]:=true;dfs(i,s1+1,s3+abs(a[dep]-a[i])*s2,s2-b[i]);f[i]:=false;end;
end;


begin
  readln(n,x);
  for i:=1 to n do
    begin
      readln(a[i],b[i]);
      inc(sum,b[i]);
    end;
  ans:=maxlongint;
  f[x]:=true;
  dfs(x,1,0,sum-b[x] );
  writeln(ans);
end.