双向LIS……居然数组又开小了……
Program P1836;
var
n,i,j,ans:longint;
a:array[1..1000] of double;
ll,lr:array[1..1000] of longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a) else exit(b);
end;
begin
fillchar(ll,sizeof(ll),0);
fillchar(lr,sizeof(lr),0);
read(n);
for i:=1 to n do read(a[i]);
ll[1]:=1;
for i:=2 to n do
begin
for j:=1 to i-1 do
if a[j]<a[i] then if (ll[j]>=ll[i]) then
ll[i]:=ll[j]+1;
if ll[i]=0 then inc(ll[i]);
end;
lr[n]:=1;
for i:=n-1 downto 1 do
begin
for j:=i+1 to n do
if a[j]<a[i] then if (lr[j]>=lr[i]) then
lr[i]:=lr[j]+1;
if lr[i]=0 then inc(lr[i]);
end;
ans:=n;
for i:=1 to n do
ans:=min(ans,n-(ll[i]+lr[i]-1));
for i:=1 to n do
for j:=i+1 to n do
ans:=min(ans,n-(ll[i]+lr[j]));
writeln(ans);
end.
分享到:
相关推荐
北大POJ1836-Alignment 解题报告+AC代码
北大POJ1836-Alignment【O(nlogn)】
POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类
POJ 3131 双向BFS解立体八数码问题
poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题...
POJ第1861题源码 POJ第1861题源码 POJ第1861题源码
北大POJ1159-Palindrome 解题报告+AC代码
poj分类poj分类poj分类poj分类
poj 3414解题报告poj 3414解题报告poj 3414解题报告poj 3414解题报告
C语言 poj npu 西工大 C语言Poj答案全完整打包,给有需要的朋友
poj 1012解题报告poj 1012解题报告poj 1012解题报告poj 1012解题报告
poj 2329解题报告poj 2329解题报告poj 2329解题报告poj 2329解题报告
poj 1659解题报告poj 1659解题报告poj 1659解题报告poj 1659解题报告
POJ1503解答 POJ1503解答,正确答案(已通过POJ)
北大POJ2002-Squares 解题报告+AC代码
POJ1048,加强版的约瑟夫问题 难度中等
POJ1083的代码,POJ1083的代码,POJ1083的代码
poj 百练 题目分类 poj 百练 题目分类
poj 1001答案
POJ2968代码有用,欢迎下载,POJ代码