摘要：
没readkey的情况type Tstring=record s:array[0..maxn] of char; n:longint; end;procedure scan(var S:Tstring);beginS.n:=0; while not seekeoln do with S... 阅读全文
摘要：
Lucas定理 A、B是非负整数，p是质数。AB写成p进制：A=a[n]a[n-1]...a[0]，B=b[n]b[n-1]...b[0]。 则组合数C(A,B)与C(a[n],b[n])*C(a[n-1],b[n-1])*...*C(a[0],b[0])modp同 即：Lucas(n,m,p... 阅读全文
摘要：
查错考场上又写挂的一道签到题。。。我们发现这题要求得到一个最小字典序列显然找到所有序列然后排序是不可取的，那么我们不能使用平常的拓扑排序方法，怎么搞使得在每次处理拓扑顺序的时候来维护呢？用小根堆维护入度为0的点即可，输入的时候统计入度{$inline on}const maxn=100010;typ... 阅读全文
摘要：
很有意思的一道题目 考场上想的是HASH成一个整数，把末位asicc码值*1，依次乘*10，得到一个整数，然后利用等差性、唯一性快排Nlogn乱搞的 证明如下： 对于明文abcde 密文 bcdef 有(a-b)*10000+(b-c)*1000+(c-d)*100+(d-... 阅读全文