‘ Evil-Eyes' Diary ’ 的存档; 分类
题目HNOI 2009 Day 1.pdf
program pudding;
type node=^nd;
nd=record a,b:longint; next:node; end;
const maxn=1000000;
var i,j,k,m,n,l,x,y:longint;
a:array[0..maxn]of node;
data:array[1..100001]of longint;
ans:longint;
h,p,q:node;
procedure add(var p:node; i:longint);
begin
new(p);
p^.a:=i;
p^.b:=i;
[ 阅读全文]