摘要:
没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... 阅读全文
posted @ 2014-11-02 17:41
Kiss our dream
阅读(452)评论(0)推荐(1)
摘要:
要求a^b^c mod p保证gcd(c,p)=1用费马小定理b:=quick_mod(b,c,p-1);c:=quick_mod(a,b,p);a^c mod p=a^(c mod phi(p)) mod p而素数的phi函数是无需计算的,即p-1推广到多个,依次降幂即可。不断应用快速幂。var ... 阅读全文
posted @ 2014-10-29 17:20
Kiss our dream
阅读(243)评论(0)推荐(0)