20140825题解.docVIP

20140825题解 一： Seq Description 由于hyf长得实在是太帅了，英俊潇洒，风流倜傥，人见人爱，花见花开，车见车载。有一群MM排队看hyf。每个MM都有自己独特的风格，由于hyf有着一颗包容的心，所以，什么风格的MM他都喜欢…… 但是，hyf有一个特别的要求，他不希望总是看到风格得差不多的MM，更加特别的是，如果两个MM风格完全一样，hyf不会有任何意见。 现在，hyf希望从去看他的MM中，去掉一些MM，从而使得相邻2个MM的风格值的差（绝对值）不为1。自然地，hyf希望去掉的MM越少越好。 Input 第一行一个整数N； 第2~N+1行N个整数，第i个为ci。表示第i个MM的风格值。 Output 一个数，表示最少要去掉的MM数。 Sample Input 6 4 2 2 1 1 1 Sample Output 2 数据规模： 对于30%的数据，N≤20 对于70%的数据，N≤100，ci ≤ 2000 对于100%的数据，N≤1000 0 ≤ ci ≤ 2000 我认为，作为一个Oier，联想的能力真的很重要，尤其是对于像NOIP这样的竞赛，常常都是改题面，改不了算法本质，所以大多数的题目都是看懂以后把对应算法稍加修改就可以AC的。 像这题，去掉最少的人首先就让我想到了那个著名的合唱队列，然后，发现这两题真的特别相似：不能排序，对子序列有严格的要求并且关系不是特别苛刻，于是，将LIS问题稍微的改动，我把它叫做“最长相邻数绝对值不为1的子序列”。 那么，关于LIS问题我就不说了。。代码如下： var i,j,k,l,m,n,tot,max,min:longint; a,f,sum:array[0..2000] of integer; procedure init; begin assign(input,seq.in); assign(output,seq.out); reset(input); rewrite(output); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do f[i]:=1; end; procedure main; begin for i:=1 to n do for j:=i+1 to n do if (abs(a[j]-a[i])1) and (f[i]+1f[j]) then f[j]:=f[i]+1; for i:=1 to n do if f[i]max then max:=f[i]; end; procedure print; begin writeln(n-max); close(input); close(output); end; begin init; main; print; end. 第三题： K好数（K-Good Number） 问题描述： 如果一个自然数N的K进制表示中任意的相邻的两位都不是相邻的数字，那么我们就说这个数是K好数。求L位K进制数中K好数的数目。例如K = 4，L = 2的时候，所有K好数为11、13、20、22、30、31、33 共7个。给定K、L，求L位K好数的数目。 输入格式： 从文件读入数据，第一行为K、Ｌ，其中K=16，L=10。 输出格式： 将结果输出到 KGOOD.OUT 样例 KGOOD.in KGOOD.OUT 4 2 7 第一次看到这个题目的时候觉得16和10这两个数字好小，于是就暴力做，结果。。。自然是不能AC……我们就分析极值的情况吧，当k=16，l=10的时候，最大数是FFFFFFFFFF,大约是。。1,099,511,627,775十三位数。。不论怎么样都超时，于是就有了dp。 说是dp，其实像是递推(好吧，dp其实是有决策的递推。。)，我们可以这样分析这个问题，3位的k进制的k好数，肯定包含了2位长度的k好数，我们以f[j,k]表示以j开头的k位k好数的个数，那么，可以接在j前的数字就可以在f[1——j-2，k+1]、f【j+2——l-1，k+1】上加上这个数。 阶段：K好数的长度 状态：0~k-1，共k个状态 边界：f[1,i]=1; 0=i=k-1; 表示长度为1的以i开头的k好数各有一个， 即：f[1,0]=1;f[1,1]=1; f[1,2]=1;….f[1,k-1]=1; 动规方程： F[p,j]=∑f[p-1,i]; abs(j-1)1; 0=j,i=k-1 Ans=∑f[len,i] 1=i=k-1 ..... 长度为2 长度为1 开头的