近来达芬奇密码热抄,也从网上找来看了,对中文官网首页的游戏产生了兴趣.由于是小时候看过这个数学题,现在突然看到备感亲切.所以用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\' ………
作者Blog：http://blog.csdn.net/huwgao/