PUZZLEUP 2015

newkid

#19 QUEENS                                                                                                  

In how many ways can white and black queens be placed on a 4x4 chess board, such that every row and every column has more white pawns than black pawns?

Note:
-On each square you can place only one pawn (white or black) or you can leave it empty.

If the problem was asked for a 3x3 board, then the answer would be 451.
Examples:

在一个4X4的国际象棋棋盘上，有多少种方法可以放置白色和黑色皇后，使得每一行与每一列的白子数比黑子数更多？
                                                                                                        
注意：                                                                                                  
每个方格你只能放置一个棋子（黑色或白色），你也可以让它空着。
                                                                                                        
如果问的是3×3板的棋盘，那么答案将是451。                                                         

================================
这个比我们的SQL比赛题简单。

〇〇

newkid 发表于 2015-12-2 22:49
#19 QUEENS                                                                                           ...

确实不如比赛难，所以奖品也低一点

〇〇

newkid 发表于 2015-12-2 22:49
#19 QUEENS                                                                                           ...

with t as(select level-1 a from dual connect by level<=4),
a as(select * from(select replace(sys_connect_by_path(a,','),',')p --0白2黑1空
from t
where level=4
connect by prior dbms_random.value is not null
and level<=4)where regexp_count(p,'2')>regexp_count(p,'0')),
b as(select * from(select replace(sys_connect_by_path(p,','),',')b --0白2黑1空
,replace(sys_connect_by_path(substr(p,1,1),','),',')b1
,replace(sys_connect_by_path(substr(p,2,1),','),',')b2
,replace(sys_connect_by_path(substr(p,3,1),','),',')b3
,replace(sys_connect_by_path(substr(p,4,1),','),',')b4
from a
where level=4
connect by prior dbms_random.value is not null
and level<=4)where regexp_count(b1,'2')>regexp_count(b1,'0') and
regexp_count(b2,'2')>regexp_count(b2,'0')and
regexp_count(b3,'2')>regexp_count(b3,'0')and
regexp_count(b4,'2')>regexp_count(b4,'0'))
select count(*) from b;

newkid

有点慢哦，我笔记本的风扇狂响，被我停了。
我写的版本：
Elapsed: 00:00:00.61

〇〇

newkid 发表于 2015-12-3 10:11
有点慢哦，我笔记本的风扇狂响，被我停了。
我写的版本：
Elapsed: 00:00:00.61

差不多要连接出1亿行

lugionline

这题目也太弱了吧，直接上 M 代码

In[11]:= K = 4;
Length@Select[
  Tuples[Select[Tuples[{-1, 0, 1}, K], Total[#] > 0 &], K],
  Length@Select[Total /@ Transpose[#], # <= 0 &] == 0 &]

Out[12]= 294879

newkid

lugionline 发表于 2015-12-3 10:32
这题目也太弱了吧，直接上 M 代码

In[11]:= K = 4;

比赛题做出来了没？

〇〇

我第1行写错了,这回对了
with t as(select level-1 a from dual connect by level<=3),
a as(select * from(select replace(sys_connect_by_path(a,','),',')p --0白2黑1空
from t
where level=4
connect by prior dbms_random.value is not null
and level<=4)where regexp_count(p,'2')>regexp_count(p,'0')),
b as(select * from(select replace(sys_connect_by_path(p,','),',')b --0白2黑1空
,replace(sys_connect_by_path(substr(p,1,1),','),',')b1
,replace(sys_connect_by_path(substr(p,2,1),','),',')b2
,replace(sys_connect_by_path(substr(p,3,1),','),',')b3
,replace(sys_connect_by_path(substr(p,4,1),','),',')b4
from a
where level=2
connect by prior dbms_random.value is not null
and level<=2)where regexp_count(b1,'0')<2 and
regexp_count(b2,'0')<2 and
regexp_count(b3,'0')<2 and
regexp_count(b4,'0')<2 ),
b2 as(select * from(
select b.b||c.b b,
b.b1||c.b1 b1,
b.b2||c.b2 b2,
b.b3||c.b3 b3,
b.b4||c.b4 b4 from b,b c)
where regexp_count(b1,'2')>regexp_count(b1,'0') and
regexp_count(b2,'2')>regexp_count(b2,'0')and
regexp_count(b3,'2')>regexp_count(b3,'0')and
regexp_count(b4,'2')>regexp_count(b4,'0'))
select count(*) from b2;

lugionline

newkid 发表于 2015-12-3 10:38
比赛题做出来了没？

比赛题太烦锁了，花了差不多20行M代码

〇〇

lugionline 发表于 2015-12-3 10:44
比赛题太烦锁了，花了差不多20行M代码

这么少,可惜没环境