摘要:
var n:longint; nt:array[0..200008,0..26] of longint; size,l,fa:array[0..200008] of longint; s:array[0..200008] of char; cnt,last:longint; procedure in 阅读全文
摘要:
1 const INF=2000000000; 2 const maxn=4008; 3 var r:array[0..maxn] of longint; 4 eg:array[0..1000008] of record u,v,w,nt:longint; end; 5 el:longint; 6 lt:array[0..maxn] of long... 阅读全文
摘要:
1 var s,t:ansistring; 2 n,op:longint; 3 p:array[0..2000008] of longint; 4 procedure pre; 5 var i:longint; 6 begin 7 s:='$*'; 8 for i:=1 to length(t) do 9 begin 10 ... 阅读全文