楼主: rollingpig

[精华] 受lastwinner邀请,尝试作答第三届SQL大赛第一道题

[复制链接]
认证徽章
论坛徽章:
40
2014年新春福章
日期:2014-02-18 16:43:09喜羊羊
日期:2015-05-18 16:24:25慢羊羊
日期:2015-06-12 13:08:22暖羊羊
日期:2015-07-02 16:06:20暖羊羊
日期:2015-07-06 16:28:55狮子座
日期:2015-07-29 17:14:43摩羯座
日期:2015-09-02 13:58:47白羊座
日期:2015-09-08 10:39:06天枰座
日期:2015-09-17 21:41:53摩羯座
日期:2015-10-29 21:07:02
发表于 2016-1-13 00:53 | 显示全部楼层
rollingpig 发表于 2016-1-12 23:06
重看了一下,发现之前代码两处错误,第二个decode少了参数,translate里面的原始字符串忘了前面补0. 还是老 ...

暇不掩玉。
之前真没想到可以用这么少的代码来完成这个任务。大神的脑袋一定是有外挂的。

使用道具 举报

回复
论坛徽章:
520
奥运会纪念徽章:垒球
日期:2008-09-15 01:28:12生肖徽章2007版:鸡
日期:2008-11-17 23:40:58生肖徽章2007版:马
日期:2008-11-18 05:09:48数据库板块每日发贴之星
日期:2008-11-29 01:01:02数据库板块每日发贴之星
日期:2008-12-05 01:01:03生肖徽章2007版:虎
日期:2008-12-10 07:47:462009新春纪念徽章
日期:2009-01-04 14:52:28数据库板块每日发贴之星
日期:2009-02-08 01:01:03生肖徽章2007版:蛇
日期:2009-03-09 22:18:532009日食纪念
日期:2009-07-22 09:30:00
发表于 2016-1-13 00:59 | 显示全部楼层
bfc99 发表于 2016-1-13 00:53
暇不掩玉。
之前真没想到可以用这么少的代码来完成这个任务。大神的脑袋一定是有外挂的。

牛蛙表示不服:

with b as (
select level||'' n, decode(level, 1,111,2,1001,3,10100001,4,10010,5,111100,6,10010000,7,1100010,8,1001000,11000100) v from dual connect by level<=9
),
r(p, xp, op, i, w) as (
select n, v, 0, 0, ''
from b
union all
select p||n, decode(i, 1, v, 0)+xp, decode(i, 1, 0, v)+op, mod(i+1, 2),
case when instr(decode(i, 1, v, 0)+xp, '3')>0 then 'X' else case when instr(decode(i, 1, 0, v)+op, '3')>0 then 'O' else null end end
from r, b
where instr(r.p, n)=0
and w is null
)
select p, translate(translate('123456789', p, 'XOXOXOXOX'), '123456789', '---------'), nvl(w, 'D')
from r
where w is not null or length(p)=9;

使用道具 举报

回复
论坛徽章:
404
紫蛋头
日期:2012-05-21 10:19:41迷宫蛋
日期:2012-06-06 16:02:49奥运会纪念徽章:足球
日期:2012-06-29 15:30:06奥运会纪念徽章:排球
日期:2012-07-10 21:24:24鲜花蛋
日期:2012-07-16 15:24:59奥运会纪念徽章:拳击
日期:2012-08-07 10:54:50奥运会纪念徽章:羽毛球
日期:2012-08-21 15:55:33奥运会纪念徽章:蹦床
日期:2012-08-21 21:09:51奥运会纪念徽章:篮球
日期:2012-08-24 10:29:11奥运会纪念徽章:体操
日期:2012-09-07 16:40:00
发表于 2016-1-13 06:28 | 显示全部楼层
newkid 发表于 2016-1-13 00:59
牛蛙表示不服:

with b as (

mod(i+1, 2)
->
1-i

使用道具 举报

回复
认证徽章
论坛徽章:
40
2014年新春福章
日期:2014-02-18 16:43:09喜羊羊
日期:2015-05-18 16:24:25慢羊羊
日期:2015-06-12 13:08:22暖羊羊
日期:2015-07-02 16:06:20暖羊羊
日期:2015-07-06 16:28:55狮子座
日期:2015-07-29 17:14:43摩羯座
日期:2015-09-02 13:58:47白羊座
日期:2015-09-08 10:39:06天枰座
日期:2015-09-17 21:41:53摩羯座
日期:2015-10-29 21:07:02
发表于 2016-1-13 09:14 | 显示全部楼层
newkid 发表于 2016-1-13 00:59
牛蛙表示不服:

with b as (

又一个狠角色。

使用道具 举报

回复
论坛徽章:
3
秀才
日期:2015-12-25 15:31:10秀才
日期:2016-01-25 15:02:04秀才
日期:2016-02-18 10:08:14
发表于 2016-1-13 09:20 | 显示全部楼层
我就看看

使用道具 举报

回复
求职 : 数据库管理员
招聘 : Java研发
认证徽章
论坛徽章:
6402
娜美
日期:2021-10-12 20:11:36技术图书徽章
日期:2021-09-30 12:11:1120周年集字徽章-年	
日期:2021-09-30 12:12:5820周年集字徽章-20	
日期:2021-09-30 12:43:0619周年集字徽章-周
日期:2021-09-30 13:18:3120周年集字徽章-20	
日期:2021-09-30 16:44:1219周年集字徽章-周
日期:2021-09-30 17:01:04技术图书徽章
日期:2021-09-30 17:59:14技术图书徽章
日期:2021-10-06 10:36:4019周年集字徽章-19
日期:2021-10-06 14:43:24
发表于 2016-1-13 09:24 | 显示全部楼层
bfc99 发表于 2016-1-13 09:14
又一个狠角色。

以后不跟他们玩了...
以后准备只看他们发帖,回帖....

使用道具 举报

回复
认证徽章
论坛徽章:
131
2006年度最佳技术回答
日期:2007-01-24 12:58:48福特
日期:2013-10-24 13:57:422014年新春福章
日期:2014-02-18 16:41:11马上有车
日期:2014-02-18 16:41:11马上有车
日期:2014-02-19 11:55:14马上有房
日期:2014-02-19 11:55:14马上有钱
日期:2014-02-19 11:55:14马上有对象
日期:2014-02-19 11:55:14马上加薪
日期:2014-02-19 11:55:142013年新春福章
日期:2013-02-25 14:51:24
发表于 2016-1-13 09:30 | 显示全部楼层
本帖最后由 rollingpig 于 2016-1-13 09:48 编辑

换个新版,代码量减少了一些,速度提高一些。
  1. with r as (select level n,power(2,level-1) b,power(10,9-level) q from dual connect by level <10),
  2. X(S,X,O,M,P,D,E,W) as (
  3. select 1,0,1,n,q,b,0,0 from r
  4. union all
  5. select S+1--步数
  6. ,mod(S,2),mod(S+1,2),--轮到谁
  7.   n+M*10,--落子棋谱
  8.   (O+1)*q+P,--落子位置字符串
  9.    X*b+D,O*b+E,--各自累加落子二进制
  10. (case when bitand(b+X*D+O*E,7*64) = 7*64             or  bitand(b+X*D+O*E,7*8) = 7*8   or  bitand(b+X*D+O*E,7) = 7 --独占一行
  11.        or   bitand(b+X*D+O*E,73*4) = 73*4             or  bitand(b+X*D+O*E,73*2) = 73*2 or  bitand(b+X*D+O*E,73) = 73 --独占一列
  12.        or   bitand(b+X*D+O*E,64*4+8*2+1) = 64*4+8*2+1 or  bitand(b+X*D+O*E,64+8*2+4) = 64+8*2+4 --对角线
  13.   then 1 else 0 end)
  14.   from r,X where W=0 --有人胜出则终止
  15.     and S<9  --第九步终止
  16.     and bitand(D+E,b)=0 and instr(M,n)=0 --不得重复落子
  17. ) select M MOVES , --棋谱
  18. translate(lpad(P,9,0),'012','-XO') board  ,--形状
  19. decode(W,0,'D',decode(X,1,'X','O')) as winner --胜出者,D为平局
  20.   from X where W=1 or S=9
复制代码

使用道具 举报

回复
认证徽章
论坛徽章:
131
2006年度最佳技术回答
日期:2007-01-24 12:58:48福特
日期:2013-10-24 13:57:422014年新春福章
日期:2014-02-18 16:41:11马上有车
日期:2014-02-18 16:41:11马上有车
日期:2014-02-19 11:55:14马上有房
日期:2014-02-19 11:55:14马上有钱
日期:2014-02-19 11:55:14马上有对象
日期:2014-02-19 11:55:14马上加薪
日期:2014-02-19 11:55:142013年新春福章
日期:2013-02-25 14:51:24
发表于 2016-1-13 09:48 | 显示全部楼层
newkid 发表于 2016-1-13 00:59
牛蛙表示不服:

with b as (

这个判断胜出的逻辑太牛了,不愧是牛蛙。

使用道具 举报

回复
认证徽章
论坛徽章:
40
2014年新春福章
日期:2014-02-18 16:43:09喜羊羊
日期:2015-05-18 16:24:25慢羊羊
日期:2015-06-12 13:08:22暖羊羊
日期:2015-07-02 16:06:20暖羊羊
日期:2015-07-06 16:28:55狮子座
日期:2015-07-29 17:14:43摩羯座
日期:2015-09-02 13:58:47白羊座
日期:2015-09-08 10:39:06天枰座
日期:2015-09-17 21:41:53摩羯座
日期:2015-10-29 21:07:02
发表于 2016-1-13 09:55 | 显示全部楼层
2009532140 发表于 2016-1-13 09:24
以后不跟他们玩了...
以后准备只看他们发帖,回帖....

这是我的活儿。你的活儿是:只看他们发帖,然后删贴......

使用道具 举报

回复
认证徽章
论坛徽章:
131
2006年度最佳技术回答
日期:2007-01-24 12:58:48福特
日期:2013-10-24 13:57:422014年新春福章
日期:2014-02-18 16:41:11马上有车
日期:2014-02-18 16:41:11马上有车
日期:2014-02-19 11:55:14马上有房
日期:2014-02-19 11:55:14马上有钱
日期:2014-02-19 11:55:14马上有对象
日期:2014-02-19 11:55:14马上加薪
日期:2014-02-19 11:55:142013年新春福章
日期:2013-02-25 14:51:24
发表于 2016-1-13 10:37 | 显示全部楼层
newkid 发表于 2016-1-13 00:59
牛蛙表示不服:

with b as (

以这个为基础,又处理了一下。
  1. with b as (
  2. --牛蛙原创,rollingpig润色
  3. select level||'' n,
  4. decode(level, 1,10100100,2,00100010,3,01100001,4,00010100,5,11010010,6,00010001,7,01001100,8,00001010,10001001)  v
  5. --标志位分别代表 1-2对角线,3-5行,6-8列。以第一个格为例,分别属于对角线 1 , 行1 ,列1
  6. from dual connect by level<=9
  7. ),
  8. r(p, xp, op, i, w) as (
  9. select n, v, 0, 0, 0
  10. from b
  11. union all
  12. select p||n, --棋谱
  13. i*v+xp,--X下的位置符合胜出条件
  14.   (1-i)*v+op,--O下的位置符合胜出条件
  15.    1-i, --轮到谁
  16. instr((1-i)*op+i*xp+v,'3') --是否已经有3个棋子落在同一胜出条件组成的棋形中
  17. from r, b
  18. where instr(p, n)=0 --不得重复下子
  19. and w=0 --上个棋形未决出胜负
  20. and length(p)<9 --上个棋形最多8个子
  21. )
  22. select
  23. p, translate(translate('123456789', p, 'XOXOXOXOX'), '123456789', '---------') --把对应位置有下子的换成X/O,没下子换成-
  24. , decode(sign(w),0,'D',decode(i,0,'X','O') ) --w=0为和棋,否则看最后一步谁下
  25. from r
  26. where w >0 or length(p)=9 --已经有人胜出或者下到9个子
  27. ;
复制代码

使用道具 举报

回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 未成年人举报专区 
京ICP备16024965号-8  北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表