POJ 1860

2012.1.28

题外废话一下,我终于回来了,因为莫名的恐惧,竟然2个月没正经切题了。

  ——傲慢与懒惰是我目前的瓶颈。

 

POJ 1860

题目大意:sb有v个s币种,已知有若干种从a到b的兑换方式,以及所需的费用(现有100元a,兑换成b,汇率为10,手续费为10,则b=(a-手续费)*汇率)。问如果能通过某种顺序兑换来刷钱则输出yes,不能就输出no。

解:因为是针对最短路和最小生成树的练习,我感觉有点作弊的成分…

一开始想是否能找到一条s 到x的路,再x到s查看是否增加了,但感觉非常麻烦。后面想了想如果能成立则能无限刷钱,就是一个类似负环的问题,所以用了一个spfa+负环成立判定,把spfa的更新方式略改造就行了。

定义:dist为兑换到某币种的最大值。

更新见程序。

View Code
  1 const
2 maxn=100;
3 maxm=100;
4 type
5 data=record
6 dest, next: longint;
7 cost, cc: double;
8 end;
9 var
10 edge: array[1..(maxm shl 1)] of data;
11 vect: array[1..maxn]of longint;
12 dist: array[1..maxn]of double;
13 tot, n, m, s: longint;
14 v: double;
15 procedure add(x, y: longint; r, c: double);
16 begin
17 inc(tot);
18 with edge[tot] do
19 begin
20 dest := y;
21 cost := r;
22 cc := c;
23 next := vect[x];
24 vect[x] := tot;
25 end;
26 end;
27
28 procedure init;
29 var
30 i, j, x, y: longint;
31 z, o, p, q: double;
32 begin
33 tot := 0;
34 fillchar(dist, sizeof(dist), 0);
35 fillchar(vect, sizeof(vect), 0);
36 readln(n, m, s, v);
37 for i := 1 to m do
38 begin
39 readln(x, y, z, o, p, q);
40 add(x, y, z, o);
41 add(y, x, p, q);
42 end;
43 end;
44
45 function spfa(b, e: longint): boolean;
46 var
47 q, key: array[1..maxn]of longint;
48 visit: array[1..maxn]of boolean;
49 head, tail, i, u: longint;
50 tmp: double;
51 begin
52 fillchar(key, sizeof(key), 0);
53 fillchar(visit, sizeof(visit), 0);
54 head := 0;
55 tail := 1;
56 q[1] := b;
57 visit[b] := true;
58 dist[b] := v;
59 while head<>tail do
60 begin
61 head := head mod maxn +1;
62 u := q[head];
63 if key[u]>=n-1 then
64 begin
65 exit(true);
66 end;
67 inc(key[u]);
68 i := vect[u];
69 while i<>0 do
70 with edge[i] do
71 begin
72 tmp := (dist[u] - cc)*cost;
73 if tmp > dist[dest] then
74 begin
75 dist[dest] := tmp;
76 if not visit[dest] then
77 begin
78 visit[dest] := true;
79 tail := tail mod maxn +1;
80 q[tail] := dest;
81 end;
82 end;
83 i := next;
84 end;
85
86 visit[u] := false;
87 end;
88 exit(false);
89 end;
90
91 procedure print;
92 begin
93 if spfa(s, s) then writeln('YES')
94 else writeln('NO');
95 end;
96
97 begin
98 assign(input,'aaa.in'); reset(input);
99
100 init;
101 print;
102
103 close(input);
104 end.
posted @ 2012-04-06 19:24  F.D.His.D  阅读(201)  评论(0编辑  收藏  举报