【文件属性】:
文件名称:treap pascal实现
文件大小:1KB
文件格式:PAS
更新时间:2015-01-03 14:06:45
treap pascal
treap pascal实现
var
left,weight,right,size,element:array[1..100000] of longint;
root,totnode:longint;
procedure update(k:longint);
begin
size[k]:=size[left[k]]+size[right[k]]+1;
end;
function merge(a,b:longint):longint;