PUZZLEUP 2015

lugionline

newkid 发表于 2015-12-3 23:38
你还怕走光？想太多了吧！这里除了你谁能看得懂M代码？
要是SQL简单还叫比赛吗？咱们从事的是SQL极限运动 ...

我记得这里有人懂M的，不过为了1万PB拼了，谁能先告诉我PB能买什么东西？

你们的题目没有提供规模小点时候的验证数据，等周末把这个给贴上来，好让大家有点方向

〇〇

lugionline 发表于 2015-12-4 10:55
我记得这里有人懂M的，不过为了1万PB拼了，谁能先告诉我PB能买什么东西？

你们的题目没有提供规模小点 ...

3*3已经最小,2*2，2*3先手必胜

〇〇

少一层，快一倍
with a as(select level-1 a,level-2 b from dual connect by level<=3),
e as(select a.a||b.a||c.a||d.a p,a.a b1,b.a b2,c.a b3,d.a b4,a.b s1,b.b s2,c.b s3,d.b s4
from a,a b,a c,a d
where regexp_count(a.a||b.a||c.a||d.a,'2')>regexp_count(a.a||b.a||c.a||d.a,'0')),
g as(select * from(select e.p||f.p p,e.b1||f.b1 b1,e.b2||f.b2 b2,e.b3||f.b3 b3,e.b4||f.b4 b4 ,
e.s1+f.s1 s1,
e.s2+f.s2 s2,
e.s3+f.s3 s3,
e.s4+f.s4 s4
from e,e f)
where  instr(b1||b2||b3||b4,'00') not in(1,3,5,7)) ,
j as (select * from
(select e.p||f.p p,e.b1||f.b1 b1,e.b2||f.b2 b2,e.b3||f.b3 b3,e.b4||f.b4 b4 ,
e.s1+f.s1 s1,
e.s2+f.s2 s2,
e.s3+f.s3 s3,
e.s4+f.s4 s4
from g e,g f)x
where s1>0 and s2>0 and s3>0 and s4>0)
select count(*) from j;
  COUNT(*)
----------
    294879

已用时间:  00: 00: 00.28

lugionline

3*2 2子期有后手胜的情况

〇〇

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

In[11]:= K = 4;

用 http://vdisk.weibo.com/s/uxS9xoXiz-TAs的版本
不算太快,花了几秒才出来

〇〇

mathematica教程(不完整文字版).pdf (1.47 MB, 下载次数: 3)

2015-12-4 12:59 上传

点击文件名下载附件

lugionline

不需要太快，你码这些SQL代码都不止几秒了，略作改进就可以更快

In[1]:= K = 4;
Timing@Length@Select[
   Tuples[Select[Tuples[{1, 0, -1}, K], Total[#] > 0 &], K],
   Length@Select[(Table[1, {K}].#), # <= 0 &] == 0 &]

Out[2]= {4.765625, 294879}

再改下，跑得更快了
In[1]:= K = 4;
R0 = Table[1, {K}];
Timing@Count[Map[
   Length[Select[R0.#, # <= 0 &]] &,
   Tuples[Select[Tuples[{1, 0, -1}, K], Total[#] > 0 &], K]], 0]

Out[3]= {0.531250, 294879}

〇〇

lugionline 发表于 2015-12-4 14:03
不需要太快，你码这些SQL代码都不止几秒了，略作改进就可以更快

In[1]:= K = 4;

这个问题规模小，所以写sql的时间长，比如6*6会不会运行时间比写sql的时间长？
我的台式机
Out[10]= {8.844, 294879}
比如第2层>-2,第3层>-1，m怎么编

lugionline

M不擅长处理过程性描述，所以你最好不要这样想问题，你看我写了这么多代码用过For循环吗？

另外新版本的在很多地方都有改进，这段代码在我的RPi上都不需要这么久吧

In[13]:= Table[i - j, {i, 4}, {j, 4}]
(Total /@ %) - {-2, -1, 0, 1}

Out[13]= {{0, -1, -2, -3}, {1, 0, -1, -2}, {2, 1, 0, -1}, {3, 2, 1, 0}}

Out[14]= {-4, -1, 2, 5}

另外不要说6了，5也跑不出来啊，要算出5肯定要另外换思路了

〇〇

lugionline 发表于 2015-12-4 14:32
M不擅长处理过程性描述，所以你最好不要这样想问题，你看我写了这么多代码用过For循环吗？

另外新版本的 ...

你用第几版的m？