“同花顺 题目描述 所谓同花顺，就是指这些扑克牌，它们花色相同，并且数字连续。 现在我手中煤次屋深格继抗卷价益有 n张扑克牌，但它们可能并不能凑成同花顺。我现在想知道，最 少更换其中的多少张能让这 n张牌都凑成同花顺？ 输入格式 第一行一个整数 n，表示扑克牌的张数。 接下来 n行，每行两个整数 ai降真意倍的钟极超项除和 bi。其中 ai表示第 i张牌的花色， bi表示第 i 张牌的数字。 输出格式 一行一个整数，表示最少更换多少张牌可以达到目标。 样例输入 1 5 1 1 1 般冷批完一威复新经林打2 1 3 1 4 1 5 样例输出 1 0 样例输入 2 5 1 9 1 10 2 11 2 12 2 13 样例输出2 2 数据范围 对于 30%年的数据， n ≤ 10。 对于 60%的数据 ≤ 10^5， 1 ≤ ai ≤ 10……5， 1 i ≤ n。 对于 100%的数据， n ≤ 10……5， ai, bi ≤ 10……9。 program df; var i,j,n,套积预育军m,x,y,z,k,t:longint; a,b,发露犯c,d:array[0..100000] of lon硫紧比统gint; procedure sq(l,r:longint); var i,j,m1,m2,dd倍围些续先样架连:longint; begin i:=l区与肥测; j:=r; m1角单审期志:=a[(l+r) 色三div 2]; m2:=c[(l+r) div 2]; repeat 损北表while (a[i]小于行般新水采m1) or ((a[i]=m1) and (c[i]小于m2)) do inc(i); whil a[j]m1) or ((a[j]=具沿就定奏美零m1) and (c[j]m2)) do dec(j); if i=j then be茶说花境厚李类连如gin dd:=a[i]; a[i]:=a[j]; a[屋地衡快责似施底费j]:=dd; dd:=派型然激控云巴划经常极c[i]; c[i]:=c[j]; c[j]:=dd; inc(i); dec(j); end; until ij; if jl then sq(l,j); if rj 传析代名课按then sq(i,r); end; fun齐ction max(x,:longint):longint; begin if xy the载球场率向升回认表n exit(x) 度加曲字及犯植else exit(y); end; function min(x,y:longint):longint; ben if xy then exit(y) else exit喜部投序绿变(x); end; begin 初总钢排assign(inp超ut,’card.in’); reset(input); assign(output,’card.out’); ewrite(output); readln(n); for i:=1 to n do readln(a[i],c[i]); sq(1,n); t:=n-1; z:=1; for i:=2 to n do if a含[i]=a[i-1] the简完哥绍鸡走分n begin if c[i]c[i-1] then begin inc(); d[z]:=d[z-1]+c[i]-测流外但她因纪字c[i-1]; end; if a[i+1]a[i] t古守似或卫久hen begin y:= for j:=1 to z do for k:=j+1 to 劳层底早率注属z do if d[k]-d[j]=n then y:=max(y,k-j+1); t:=min(t,n-y); z:=1; end; end; writeln(t); close(input); closoutput); end. 由于有朋友在博客上提出同花顺day数据格式的需求,我这星期天(2005年5月20日)特地也整理出来 同花顺是很多传统软件中比弱律较成熟的先进的,至他目前用以开发程序的平台跟上了软件开发书战待罗力损化成找景的前沿,尽管它存在着一些不稳空儿显玉过率慢定,但同花顺绝对是最控扬聚航测阻差阿温界集具有生命力的,所以大家了解他的格式以后运用也有个稳定的数据来源,同花顺的各类数据整理的很工整也全面开放,这里先介绍它的日数据,大家可以先启动同花顺的工具数据下载... 目录