摘要： Function Getlen(P:longint):longint;var i:longint; begin getlen:=0; for i:=1 to 31 do begin if p and 1=1 then getlen:=i; p:=p shr 1; end;end;Function GetBit(Num,bit:longint):boolean; begin if (num and (1 shl(bit-1)))=0 then exit(false) else exit(true);end;Procedure changeBit(var num:lo... 阅读全文

摘要： /************************************************************** Problem: 1798 User: HTwood Language: Pascal Result: Accepted Time:14892 ms Memory:13116 kb ****************************************************************/ program seq; Function min(a,b:longint):longint; be... 阅读全文

摘要： 2013/05/13重写 阅读全文

摘要： 如上 阅读全文

摘要： 阅读全文

摘要： IamHT.wordpress.com2011/07/16已被墙 2011/10 阅读全文

摘要： Psytopic分析：您的性格类型是“INTJ”(内向+直觉+思维+判断) 在实现自己的想法和达成自己的目标时有创新的想法和非凡的动力。能很快洞察到外界事物间的规律并形成长期的远景计划。一旦决定做一件事就会开始规划并直到完成为止。多疑、独立，对于自己和他人能力和表现的要 求都非常高。 INTJ型的人是完美主义者。他们强烈地要求个人自由和能力，同时在他们独创的思想中，不可动摇的信仰促使他们达到目标。 INTJ型的人思维严谨、有逻辑性、足智多谋，他们能够看到新计划实行后的结果。他们对自己和 别人都很苛求，往往几乎同样强硬地逼迫别人和自己。他们并不十分受冷漠与批评的干扰，作为所有性格类型中最独立的， 阅读全文

摘要： 数学没有满分，理化不太清楚，语文感觉一般，英语..140上下吧...政治历史不知道在写点什么东西... 阅读全文

摘要： 打开再看吧 阅读全文

摘要： 程序大战也叫磁核大战,英文名为"CoreWars",是一个很古老的游戏，当年比尔.盖茨上学时就有这个东东了，不过国内玩的人很少。 目前一些免费 Unix如FreeBSD等的ports里就有他。这个游戏可以从名字也能看出来就是程序之间的大赛。就是大家都写一个程序，然后我们把这些程序都放到内存，然后开始"并发"运行，看最终的结果是谁的程序消灭了内存中的其他程序而存活了下来。这一程序对抗模型可以看作是原始的病毒对抗。每个程序都要尽力的消灭其他程序，为了能够生存,程序应该能保护自己，不断移动自身来躲过其他程序的攻击或当自身受到攻击后能自我修复。 阅读全文