黄金雅蠛蝶的个人资料

高精度阶乘求优化认真写的高精度阶乘，但是比直接相乘快不了多少希望大师们能指点优化： program gjd_fact_n; const cade=10000000; maxl=5200; type gjd=array [0..maxl] of qword; var nums:longint; isp:array[1..40000] of boolean; i,j,m,fa:longword; t,r,temp:gjd; procedure init(var r:gjd); begin fillchar(r,sizeof(r),0); r[0]:=1;r[1]:=1; end; procedure square(var x:gjd); var i,j:longint; begin fillchar(temp,sizeof(temp),0); temp[0]:=x[0]+x[0]-1; for i:=1 to x[0] do for j:=1 to x[0] do inc(temp[i+j-1],x[i]*x[j]); for i:=1 to temp[0] do begin inc(temp[i+1],temp[i] div cade); temp[i]:=temp[i] mod cade; end; if temp[temp[0]+1]>0 then inc(temp[0]); x:=temp; end; procedure times(var x,u:gjd); var i,j:longint; begin fillchar(temp,sizeof(temp),0); temp[0]:=x[0]+u[0]-1; for i:=1 to x[0] do for j:=1 to u[0] do inc(temp[i+j-1],x[i]*u[j]); for i:=1 to temp[0] do begin inc(temp[i+1],temp[i] div cade); temp[i]:=temp[i] mod cade; end; if temp[temp[0]+1]>0 then inc(temp[0]); x:=temp; end; procedure times(var x:gjd;k:longword); var i:longint; begin for i:=1 to x[0] do x[i]:=x[i]*k; for i:=1 to x[0] do begin inc(x[i+1],x[i] div cade); x[i]:=x[i] mod cade; end; if x[x[0]+1]>0 then inc(x[0]); end; procedure ksm(var x:gjd;u:qword;m:longword); var digit:array[1..32] of boolean; mx:longword=0; i:longword; begin fillchar(digit,sizeof(digit),0); while m<>0 do begin inc(mx); digit[mx]:=odd(m); m:=m shr 1; end; for i:=mx downto 1 do begin square(x); if digit[i] then times(x,u); end; end; procedure opt(var x:gjd); var i,j:longint; s:string[7]; begin write(x[x[0]]); for i:=x[0]-1 downto 1 do begin str(x[i],s); for j:=1 to 7-length(s) do write('0'); write(s); end; writeln; end; begin readln(fa); fillchar(isp,sizeof(isp),true); isp[1]:=false; for i:=2 to trunc(sqrt(fa)) do if isp[i] then for j:=2 to fa div i do isp[i*j]:=false; init(r); //for i:=2 to fa do for i:=2 to fa shr 1 do if isp[i] then begin m:=fa; nums:=0; while m>0 do begin m:=m div i; inc(nums,m); end; init(t); ksm(t,i,nums); times(r,t); end; for i:=fa shr 1+1 to fa do if isp[i] then times(r,i); //opt(r); end. 有一个问题，把 maxl 改成 16000 或 24000 后，程序明显会变慢（同样计算 10000!）。请问有没有好的解决方法？

【乱入】朱志香你怎么了？跟拉姆达学坏了吗？一楼喂贝露赛布布&UUZ。希望没撞车

隐藏了12年的秘密？？一楼先献祭了。

鬼畜XOR 一楼献祭给提供此服务的百度

【命名来源】居然三连发…… 刚才在这里（http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.toho-motoneta.net%2Findex.php%3F%25C0%25BB%25C7%25F2%25CF%25A1&urlrefer=c6e8276f9212d86cae01aa958080bf06）看到：藤木禀的小说《上海幻夜》里的男主角—朱雀十五，在中国取的中文名叫“李白莲”。另外作品中有一位女性，称呼是“橙”，真名是“贞美铃”。难道说橙和红美铃有什么内在联系？

【疑问】新手关于世界观的疑惑本人是一个接触海猫不久的人，现在极度疑惑中。有一系列问题：EP1最后，战人（只针对他一个）是死是活？有没有死而复生？他在后面的EP跟魔女展开对决，但他这时是和魔女在类似的地位上吗？（指的是同在“上位世界”）虽然他站在人类方反对魔女，认定凶手是人类；但他是否连着上位世界的魔女（就摆在他面前）一起否认呢？他是否能从“人类方”的观点解释自己为什么在上位世界？既然同是位于上为世界的存在，他在否定魔女的同时，能否证明“自己”存在的合理性呢？作为一个TV党，我觉得EP1最后战人、让治、朱志香几个像是在看戏一样，把下位的自己当做是游戏角色（是吗？）。他们其实有没有活下来？虽然不理解这些也能推理，但是引入魔女棋局的方式也太突兀了，希望各位大人解释一下。