最大流@Done
Friday, March 16, 2007 5:47:27 AM
/me 撒花:jester:
在这个位面中。。。我是最强的。。。
Wednesday, February 14, 2007 6:54:41 AM
Function Get_Hash(q:node):integer;
Var
t : array[0..7]of integer;
i,j,s : Integer;
Begin
t[0]:=0;
for i:=1 to 7 do
Begin
t[i]:=0;j:=1;
while q.p[j]<>i+1 do inc(j);
s:=j+1;
for j:=s to 8 do
if q.p[j]<i+1 then inc(t[i]);
End;
Get_Hash:=0;
for i:=1 to 7 do
inc(Get_Hash,t[i]*fact[i]);
End;
你的DND第一次PC给了什么职业?
Total: 4 votes
| S | M | T | W | T | F | S |
|---|---|---|---|---|---|---|
|
| ||||||
| 1 | 2 | 3 | 4 | |||
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | |||