旅行 (Standard IO)
2016-08-15 14:18
267 查看
Description
X先生来到了一个奇怪的国家旅行。这个国家有N个城市,每个城市均有且仅有一个机场,但是这机场所有航班只飞往一个城市。每个城市有一个游览价值,第i个城市的游览价值为A[i]。
现在他想知道,从第i个城市出发,并只坐飞机飞往下一个城市,游览价值之和最多是多少(一个城市游览多次只计算1次游览价值)
Input
输入文件travel.in的第1行为一个正整数N。
第2行有N个非负整数A[i],表示了每个城市的游览价值。
第3行有N个正整数F[i],表示第i个城市的航班飞往的城市为F[i],可能出现F[i] = i的情况。
Output
输出文件travel.out包括N行,第i行包含一个非负整数,表示从第i个城市出发游览价值之和的最大值为多少。
题解
看到s<100000,就是不过6位数,暴力啊。
预处理出s所能变成的数,记录在桶排里,然后直接输出。
代码
X先生来到了一个奇怪的国家旅行。这个国家有N个城市,每个城市均有且仅有一个机场,但是这机场所有航班只飞往一个城市。每个城市有一个游览价值,第i个城市的游览价值为A[i]。
现在他想知道,从第i个城市出发,并只坐飞机飞往下一个城市,游览价值之和最多是多少(一个城市游览多次只计算1次游览价值)
Input
输入文件travel.in的第1行为一个正整数N。
第2行有N个非负整数A[i],表示了每个城市的游览价值。
第3行有N个正整数F[i],表示第i个城市的航班飞往的城市为F[i],可能出现F[i] = i的情况。
Output
输出文件travel.out包括N行,第i行包含一个非负整数,表示从第i个城市出发游览价值之和的最大值为多少。
题解
看到s<100000,就是不过6位数,暴力啊。
预处理出s所能变成的数,记录在桶排里,然后直接输出。
代码
var f,d:array[0..100001] of longint; m,n,s,ta,he,x,len:longint; ss:string; procedure try1; var i,j,num:longint; st,newst:string; begin str(x,st); for i:=1 to length(st) do for j:=i+1 to length(st) do if i<>j then begin newst:=copy(st,1,i-1)+st[j]+copy(st,i+1,j-i-1)+st[i]+copy(st,j+1,length(st)); val(newst,num); if newst='' then exit; if (f[num]=-1) then begin f[num]:=f[x]+1; inc(ta); d[ta]:=num; end; end; end; procedure try2; var i,j,num:longint; st,newst:string; begin if length(st)=1 then exit; str(x,st); for i:=1 to length(st) do begin newst:=copy(st,1,i-1)+copy(st,i+1,length(st)); val(newst,num); if newst='' then exit; if (f[num]=-1) then begin f[num]:=f[x]+1; inc(ta); d[ta]:=num; end; end; end; procedure try3; var i,j,num,aa,bb:longint; st,newst,l:string; begin str(x,st); if length(st)>=len then exit; if length(st)=1 then exit; for i:=1 to length(st)-1 do begin val(st[i],aa); val(st[i+1],bb); for j:=aa+1 to bb-1 do begin str(j,l); newst:=copy(st,1,i)+l+copy(st,i+1,length(st)); if newst='' then exit; val(newst,num); if (f[num]=-1) then begin f[num]:=f[x]+1; inc(ta); d[ta]:=num; end; end; end; end; procedure init; var i:longint; begin readln(s); str(s,ss); len:=length(ss); fillchar(f,sizeof(f),255); f[s]:=0; ta:=1; he:=0; d[1]:=s; while he<ta do begin inc(he); x:=d[he]; try1; try2; try3; end; readln(n); for i:=1 to n do begin readln(n); writeln(f ); end; end; begin init; end.
相关文章推荐
- 2569. 【NOIP2011模拟9.17】旅行 (Standard IO)
- 【NOIP2011模拟9.3】旅行 (Standard IO)
- 【2012.03.09普及组】旅行 (Standard IO)
- 旅行 (Standard IO)
- jzoj3053. 【NOIP2012模拟10.25】旅行 (Standard IO)
- 旅行 (Standard IO)
- 直角三角形 (Standard IO)
- 数码问题 (Standard IO)
- 游泳池 (Standard IO)
- 奶牛晒衣服 (Standard IO)
- 1254. 【USACO题库】1.5.2 Prime Palindromes回文质数 (Standard IO)
- 2553. 【NOIP2011模拟9.7】射命丸文 (Standard IO)
- 2557. 【NOIP2011模拟9.9】单词分类 (Standard IO)
- 位图 (Standard IO)
- 1153. 素数环 (Standard IO)
- JZOJ 5326. LCA 的统计 (Standard IO)
- 【NOIP2014模拟9.7】我要的幸福 (Standard IO)
- YL杯超级篮球赛 (Standard IO)
- 佳肴 (Standard IO)
- 输油管道 (Standard IO)