vj莫封我

贴个我的吧，qsort+二分优化dp，绝对标准的nlogn

啊！伟大的vijos，我就贴一次代码，求你别封我

const

fin='p1638.in'; fout='p1638.out';

maxn=500000;

var

x,y:array[1..maxn] of longint;

f:array[1..maxn] of longint;

n,m,l,r,mid,ans,i:longint;

procedure qsort(l,r:longint);

var i,j,mid,t:longint;

begin

i:=l; j:=r; mid:=x[(l+r)shr 1];

repeat

while x[i]mid do dec(j);

if i=j;

if l

真的是nlogn吗

没有2分查找，貌似是从末尾开始一路找的，这样也能nlogn?

我可以给个合唱队形的NlongN给大家参考一下

我写的程序：

program po;

var

　　s,f1,f2,a,b:array[0..50000]of longint;

　　i,j,k,n,max:longint;

begin

　　readln(n);

　　for i:=1 to n do read(a[i]);

　　k:=1;

　　f1[1]:=1;

　　s[k]:=a[1];

　　for i:=2 to n do begin

　　 if s[k]

2分

不要每次从头检索

　　还是纠结．．

　　　　　纠结．

　　　　　　纠结．．

　　　　

感谢大牛。。。

orz.

orzLS.

终于看到了./.

纠结结束了.

STQ..还真有人发了 拜

code

本人不才，但恰好有

贴代码会被封吗？

const

maxn=500000;

type

Ttrap=record

c,d:int64;

end;

var

ts:array[1..maxn] of Ttrap;

ad:array[0..maxn] of int64; mad:longint;

n:longint;

x,y:int64;

procedure init;

var

i:longint;

procedure qsort(l,r:longint);

var

i,j:longint;

m:int64;

t:Ttrap;

begin

i:=l; j:=r;

m:=ts[(i+j) div 2].c;

repeat

while ts[i].cm do dec(j);

if ij;

if i

我不想帖子沉了..

我急切的希望看到nlogn的longsetup啊//。

同LS

我保持沉默。

我对LZ保持沉默。

LongestUp有2种。阿

RT、

一种是n*n、这次数据弱了。AC。

但是想用nlogn过就是过不了。WA了好多次。

就是nlogn的Longest Increasing Subsequence.