1260535207
- 浏览: 2631 次
-
最新评论
文章列表
const maxn=200000;
var n,tot:longint;
sa,rank,height,ws,r:array[0..maxn+10]of longint;
x:array[0..1,0..maxn+10]of longint;
procedure init;
var s:string;
i,j,k:longint;
begin
fillchar(r,sizeof(r),0);
readln(n);
i:=n;tot:=0;
while i>0 do
begin
readln(s);
...
var
sa,tsa,r,tr,sum,h:array[0..200010]of longint;
s:ansistring;
i,n:longint;
procedure make_height;
var
k,i,j:longint;
begin
k:=0;
for i:=1 to n do if r[i]=1 then begin h[r[i]]:=0; continue end
else begin
j:=sa[r[i]-1];
while (i+k<=n)and(j+k<=n)and(s[i+k] ...
博弈 codevs 3196 黄金宝藏 http://codevs.cn/problem/3196/
两个人轮流取数，每次可以从数列左边或者右边取一个数，直到所有的数被取完，两个人都[size=large]以最优策略取数，求最后两人所得分数。[/size]
引用http://www.cnblogs.com/Sakits/p/5348 ...
nocow http://www.nocow.cn/index.php/Heap_Pascal
=w= c++ 自带堆
栗子
【2235烤鸡翅】http://cojs.tk/cogs/contest/problem.php?ctid=303
[题解]
对于当前的一个顾客i
1.剩余鸡翅足够，卖给他
2.剩余鸡翅不够，选择已卖出的人中所需鸡翅最多的人j，
如果 鸡翅i<鸡翅j 那么替换 ，人数不变，且剩余鸡翅增加
[代码]
var
n,i,y,max,d,ren,r:l ...
http://blog.sina.com.cn/s/blog_9dff1a750101ag0l.html
const zero=1e-6; maxn=100000;
type point=record x,y:extended; end;
var p:array[1..maxn]of point;
ch:array[1..maxn]of longint;
temp,n,m,i,j,k:longint;
function sgn(x:extended):longint; inline;
begin
if abs(x)<zero then exit(0);
if x&l ...
var
v,f,yes:array[1..1000]of boolean;
dfn,low:array[1..1000]of integer;
a:array[0..1000,0..1000]of integer;
b:array [0..1000] of integer;
i,j,n,m,x,y,deep,d:integer;
stack,ln:array[1..1000]of integer;
function min(x,y:longint): ...
【问题描述】
信息的明文是由0利1组成的非空序列。但在网络通信中，为了信息的安全性，常对明文进行加密，用密文进行传输。密文是由0、1和若干个密码字母组成，每个密码字母代表不同的01串，例如，密文=011a0bf00a01。密码破译的关键是确定每个密码的含义。
经过长期统计分析，现在知道了每个密码的固定长度，如今，我方又截获了敌方的两段密文S1和S2，并且知道S1=S2，即两段密文代表相同的明文。你的任务是帮助情报人员对给定的两段密文进行分析，看一看有多少种可能的明文。
【输入文件】
第1行： S1 (第1段密文)
第2行： S2 (第2段密文)
第3行： N (密码总数， N&l ...