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;
评论星级较低,若资源使用遇到问题可联系上传者,3个工作日内问题未解决可申请退款~