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)=0
begin
   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

--轮回游戏
else
begin
   --判断游戏是否结束
   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=1
union all
select 目标数=null,你输入,达芬奇
   ,下次输入=case when charindex(','+目标数+',',','+下次输入+',')=0 then 下次输入 else
   left(left(下次输入,charindex(','+目标数+',',','+下次输入+',')+len(目标数)),
   len(left(下次输入,charindex(','+目标数+',',','+下次输入+',')+len(目标数)))-
   charindex(',',reverse(left(下次输入,charindex(','+目标数+',',','+下次输入+',')+len(目标数)))))
   end
from (
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 ##t
where id>1
group 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
   ,q
from ##t
*/

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

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

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 2
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论 2

打赏作者

huwgao

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值