SQL模拟达芬奇密码中文站首页数字游戏

近来达芬奇密码热抄,也从网上找来看了,对中文官网首页的游戏产生了兴趣.由于是小时候看过这个数学题,现在突然看到备感亲切.所以用SQL模拟了一个.（中文官方网站见http://davincicode.leiling.com/）

create proc davinci (@intarray varchar(1000))as--******************--2004.7--******************declare @sp varchar(1)set @sp=@#,@#  

declare @i int,@j int,@maxq int

--初始化if charindex(@sp,@intarray)=0begin   if object_id(@#tempdb..##t@#) is not null      drop table ##t

   if isnumeric(@intarray)=0   begin      print @#输入参数必须是数字。@#      return   end   create table ##t(id int identity(1,1),q int)   set @i=floor(10+rand()*30)   insert into ##t(q) values(@i)   print @#目标：@#+cast(@i as varchar(2))end

--轮回游戏elsebegin   --判断游戏是否结束   if object_id(@#tempdb..##t@#) is null   begin      print @#本回合已经结束，大侠请重新来过！@#      return   end

   --验证用户输入数合法性   if isnumeric(right(@intarray,charindex(@sp,reverse(@intarray))-1))=0   begin      print @#输入参数必须是数字。@#      return   end   set @i=cast(right(@intarray,charindex(@sp,reverse(@intarray))-1) as int)   set @maxq=(select max(q) from ##t where id>1)   if @i<=isnull(@maxq,0)   begin      print @#输入参数必须大于当前最大数。@#      return   end   if @i-isnull(@maxq,1)>3   begin      print @#输入参数超过范围。@#      return   end   if @i>(select q from ##t where id=1)   begin      print @#输入参数不得大于目标数。@#      return   end

   --插入用户输入数   insert into ##t(q) values(@i)   print @#你输入：@#+cast(@i as varchar(2))    --判断胜负   if @i=(select q from ##t where id=1)   begin      drop table ##t      print @#-------------------------------------@#      print @#胜败乃兵家常事，大侠请重新来过！@#      return   end   if @i=(select q from ##t where id=1)-1   begin   drop table ##t      print @#达芬奇：@#+cast(@i+1 as varchar(2))      print @#-----------------@#      print @#恭喜！你获胜了。@#      return   end

   --插入达芬奇应答数   if (select q-1 from ##t where id=1)%4=0      set @j=(select count(id) from ##t where id%2=1)*4   else   begin      set @j=(select q-1 from ##t where id=1)%4+((select count(id) from ##t where id%2=1)-1)*4      if @j<(select max(q) from ##t where id>1)         set @j=@j+4   end     if @i=@j      set @j=@j+floor(1+rand()*3)    insert into ##t values(@j)   print @#达芬奇：@#+cast(@j as varchar(2))end

--完整版显示select 目标数=q,你输入=null,达芬奇=null,下次输入=@#1,2,3@# from ##t where id=1union allselect 目标数=null,你输入,达芬奇   ,下次输入=case when charindex(@#,@#+目标数+@#,@#,@#,@#+下次输入+@#,@#)=0 then 下次输入 else   left(left(下次输入,charindex(@#,@#+目标数+@#,@#,@#,@#+下次输入+@#,@#)+len(目标数)),   len(left(下次输入,charindex(@#,@#+目标数+@#,@#,@#,@#+下次输入+@#,@#)+len(目标数)))-   charindex(@#,@#,reverse(left(下次输入,charindex(@#,@#+目标数+@#,@#,@#,@#+下次输入+@#,@#)+len(目标数)))))   endfrom (select 目标数,你输入,达芬奇   ,下次输入=cast(达芬奇+1 as varchar(2))+@#,@#      +cast(达芬奇+2 as varchar(2))+@#,@#      +cast(达芬奇+3 as varchar(2))from (select 目标数=cast((select q from ##t where id=1) as varchar(2))   ,你输入=max(case when id%2=0 then q else 0 end)   ,达芬奇=max(case when id%2=1 then q else 0 end)from ##twhere id>1group by floor(id/2)) a) b

/*--简化版显示select case when id=1 then @#目标数：@#   when id%2=0 then @#你输入：@#   when id%2=1 and id>1 then @#达芬奇：@# end   ,qfrom ##t*/

游戏规则：系统随机产生目标数，双方从数字1开始轮回应答，数字必须连续，每回合最多可以选择3个数字，先到目标数者为负。

游戏说明：执行 exec davinci @#2@# 开始程序，其中数字2可以为任意数字，系统产生随机目标数。你开始应答，应答数以逗号『，』分隔，如：exec davinci @#2,1@#，然后系统自动回应答，如4。接着开始下一轮应答：exec davinci @#2,1,6@# ………

原文转自：http://www.ltesting.net