受lastwinner邀请，尝试作答第三届SQL大赛第一道题

bfc99 · 发表于 2016-1-13 00:53

rollingpig 发表于 2016-1-12 23:06
重看了一下，发现之前代码两处错误，第二个decode少了参数，translate里面的原始字符串忘了前面补0. 还是老 ...

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

newkid · 发表于 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;

〇〇 · 发表于 2016-1-13 06:28

newkid 发表于 2016-1-13 00:59
牛蛙表示不服：

with b as (

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

bfc99 · 发表于 2016-1-13 09:14

newkid 发表于 2016-1-13 00:59
牛蛙表示不服：

with b as (

又一个狠角色。

db亮仔 · 发表于 2016-1-13 09:20

我就看看

2009532140 · 发表于 2016-1-13 09:24

bfc99 发表于 2016-1-13 09:14
又一个狠角色。

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

rollingpig · 发表于 2016-1-13 09:30

本帖最后由 rollingpig 于 2016-1-13 09:48 编辑

换个新版，代码量减少了一些，速度提高一些。

with r as (select level n,power(2,level-1) b,power(10,9-level) q from dual connect by level <10),
X(S,X,O,M,P,D,E,W) as (
select 1,0,1,n,q,b,0,0 from r
union all
select S+1--步数
,mod(S,2),mod(S+1,2),--轮到谁
n+M*10,--落子棋谱
(O+1)*q+P,--落子位置字符串
X*b+D,O*b+E,--各自累加落子二进制
(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 --独占一行
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 --独占一列
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 --对角线
then 1 else 0 end)
from r,X where W=0 --有人胜出则终止
and S<9 --第九步终止
and bitand(D+E,b)=0 and instr(M,n)=0 --不得重复落子
) select M MOVES , --棋谱
translate(lpad(P,9,0),'012','-XO') board ,--形状
decode(W,0,'D',decode(X,1,'X','O')) as winner --胜出者，D为平局
from X where W=1 or S=9

复制代码

rollingpig · 发表于 2016-1-13 09:48

newkid 发表于 2016-1-13 00:59
牛蛙表示不服：

with b as (

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

bfc99 · 发表于 2016-1-13 09:55

2009532140 发表于 2016-1-13 09:24
以后不跟他们玩了...
以后准备只看他们发帖，回帖....

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

rollingpig · 发表于 2016-1-13 10:37

newkid 发表于 2016-1-13 00:59
牛蛙表示不服：

with b as (

以这个为基础，又处理了一下。

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

复制代码

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