近来达芬奇密码热抄,也从网上找来看了,对中文官网首页的游戏产生了爱好.由于是小时候看过这个数学题,现在忽然看到备感亲切.所以用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 nulldrop table ##t
if isnumeric(@intarray)=0 beginprint '输入参数必须是数字。'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 beginprint '本回合已经结束，大侠请重新来过！'return end
--验证用户输入数合法性 if isnumeric(right(@intarray,charindex(@sp,reverse(@intarray))-1))=0 beginprint '输入参数必须是数字。'return end set @i=cast(right(@intarray,charindex(@sp,reverse(@intarray))-1) as int) set @maxq=(select max(q) from ##t where id1) if @i<=isnull(@maxq,0) beginprint '输入参数必须大于当前最大数。'return end if @i-isnull(@maxq,1)3 beginprint '输入参数超过范围。'return end if @i(select q from ##t where id=1) beginprint '输入参数不得大于目标数。'return end
--插入用户输入数 insert into ##t(q) values(@i) print '你输入：'+cast(@i as varchar(2))--判定胜败 if @i=(select q from ##t where id=1) begindrop table ##t----------------------------------'print '胜败乃兵家常事，大侠请重新来过！'return end if @i=(select q from ##t where id=1)-1 begin drop table ##tprint '达芬奇：'+cast(@i+1 as varchar(2))print '-----------------'print '恭喜！你获胜了。'return end
--插入达芬奇应答数 if (select q-1 from ##t where id=1)%4=0set @j=(select count(id) from ##t where id%2=1)*4 else beginset @j=(select q-1 from ##t where id=1)%4+((select count(id) from ##t where id%2=1)-1)*4if @j<(select max(q) from ##t where id1) set @j=@j+4 end if @i=@jset @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 id1group by floor(id/2)) a) b
/*--简化版显示select case when id=1 then '目标数：' when id%2=0 then '你输入：' when id%2=1 and id1 then '达芬奇：' end ,qfrom ##t*/
游戏规则：系统随机产生目标数，双方从数字1开始轮回应答，数字必须连续，每回合最多可以选择3个数字，先到目标数者为负。
游戏说明：执行 exec davinci '2' 开始程序，其中数字2可以为任意数字，系统产生随机目标数。你开始应答，应答数以逗号『，』分隔，如：exec davinci '2,1'，然后系统自动回应答，如4。接着开始下一轮应答：exec davinci '2,1,6' ………
