文件名称：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;