128 条题解
-
0
sliverzero LV 8 @ 2010-04-13 19:34:22
双向BFS
-
0
peng7621260 LV 9 @ 2009-11-02 10:10:46
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms双向BFS
-
0
panyihan2009 LV 9 @ 2009-10-29 19:09:24
全秒。。学到双向BFS了。。不会的去百度百科查双向广搜吧
-
0
prince_hao LV 10 @ 2009-10-28 21:21:46
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msVIJOS EASY~~~
发觉BKDRHASH更为简单实用(H:=(H*131+ORD(S)) -
0
单向BFS+Hash可以秒
如果有人最后一个点是答案错误...程序输出比正确答案长……
那么就回去把你的hash函数多乘一个 i ……
Hash：
function hash_ok(t:string):boolean;
var
i,k:longint;
begin
if t=s then show;
k:=0;
for i:=1 to length(t) do
k:=(k+(ord(t[i])-prime[i])*i*i*prime[i]) mod prime[0];
if hash[k] then exit(false)
else
begin
hash[k]:=true;
exit(true);
end;
end; -
0
var s1,s2,ss:string;x,n,w,wb,l,fl,aal,bbl,p:longint;aa,bb,a,b,g,gb,f,c:array[0..1000] of string;
function check(s:string;e:integer):boolean;
var r:longint;
begin
if e=1 then
begin
for r:=1 to w do
if g[r]=s then
begin
check:=false;
exit;
end;
check:=true;
w:=w+1;
g[w]:=s;
end;
if e=2 then
begin
for r:=1 to wb do
if gb[r]=s then
begin
check:=false;
exit;
end;
wb:=wb+1;
gb[wb]:=s;
end;
end;
procedure fuck;
var r,j:longint;
begin
for r:=1 to aal do
for j:=1 to bbl do
if aa[r]=bb[j] then
begin
write(p);
close(input);
close(output);
halt;
end;
end;
function change(sn:string;e:integer):string;
var r:longint;s,sm:string;
begin
fillchar(c,sizeof(c),0);
l:=0;
if e=1 then
for r:=1 to n do
begin
sm:=sn;
repeat
s:=sn;
x:=pos(a[r],sm);
if (x0)and(length(sn)-length(a[r])+length(b[r]) -
0
song19931218 LV 9 @ 2009-10-24 21:53:09
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msBkdrHash+BST+单向BFS=AC
这种题目写的时候脑子千万要清醒！！！！ -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 9ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：9msELF哈希+BST储存哈希值+单向BFS……
ELFHash的函数：
unsigned long elfhash(string& hs)
{
unsigned long hash=0;
unsigned long x=0;
long hn=hs.length();
long hi;
for (hi=0;hi 24);
hash&=~x;
}
}
return (hash & 0x7FFFFFFF);
}
sliverzero
LV 8
@ 2010-04-13 19:34:22
