PUZZLEUP 2015

lugionline

以前用纯C搞定了前150题就再也做不下去了，后面全是数论的东西，数学知识还是太少了

目前还是7段, tree_new_bee恐怕没有做这么多吧

lugionline

你的2.5秒是不是一开始只算了3个点然后旋转了一下拼结果出来的？否则怎么可能这么快

现在可以贴答案了吧

〇〇

lugionline 发表于 2015-12-15 10:26
你的2.5秒是不是一开始只算了3个点然后旋转了一下拼结果出来的？否则怎么可能这么快

现在可以贴答案了吧

newkid建议延期,暂时不贴出来,btw我的没有旋转

〇〇

[ 本帖最后由 〇〇 于 2015-12-16 16:46 编辑 ]

[quote][size=2][color=#999999]lugionline 发表于 2015-12-4 14:03[/color] [url=forum.php?mod=redirect&goto=findpost&pid=23121334&ptid=1931570][img]static/image/common/back.gif[/img][/url][/size]
不需要太快，你码这些SQL代码都不止几秒了，略作改进就可以更快

In[1]:= K = 4;
[/quote]
In[27]:= (
         x=Select[Tuples[{-1, 0, 1}, 4], Total[#] > 0 &];
         x2=Select[Tuples[x, 2], Min[Total[#,1]] >= -1 &];
         x2t=Total[x2,{2}];
         x3=Table[x2t[[i]]+x[[j]],{i,Length[x2t]},{j,Length[x]}];
         x4=Flatten[x3,1];
         x5=Select[x4,Min[#]>=0 &];
         x6=Table[x5[[i]]+x[[j]],{i,Length[x5]},{j,Length[x]}];
         Length@Select[Flatten[x6,1],Min[#]>0 &])//Timing

Out[27]= {2.453, 294879}

newkid

M代码随便帖，没有限制。

lastwinner

结果还是改了
比如加了 开局就已经定了胜负的描述


ps：发现现在这帖我落后很多，都跟不上了……

〇〇

newkid 发表于 2015-12-16 22:24
M代码随便帖，没有限制。

不明白

〇〇

把Map改写成多个步骤，还是慢一点

In[47]:= (K=4;R=Table[1, {K}];
         tp = Tuples[Select[Tuples[{1, 0, -1}, K], Total[#] > 0 &], K];
         td=Table[R.tp[[ i]],{i,Length[tp]}];
         te=Select[td,Min[#]<1 &];
         Length[tp]-Length[te])//Timing

Out[47]= {2.278, 294879}

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

Out[48]= {2.106, 294879}

lugionline

OO 把 你的代码贴出来看看，是怎么弄到2秒的

要做到完美棋手，好像也没什么好的办法，只能先BFS展开，再从后向前归纳，T-SQL是没法做DFS的了，所以极大极小化是没法做的
我的做法，一鱼两吃，从空白棋盘展开就是第一题的答案，从后向前归纳就是第二题的答案，包括了所有的解
要弄SQL，只要照着M代码依次转成SQL或者片段应当就了，就是太烦，M只有29行17句话哎，我看SQL要写多少

应OO要求把计算过程描述了一下，中文格式有点问题，将就着看吧




Q1.zip (19.84 KB, 下载次数: 3)

2015-12-18 21:27 上传

点击文件名下载附件

〇〇

lugionline 发表于 2015-12-17 10:38
OO 把 你的代码贴出来看看，是怎么弄到2秒的

要做到完美棋手，好像也没什么好的办法，只能先BFS展开，再 ...

我的只能做第一道,都是硬编码,与你相反，是从SQL翻译过来的，我问问主办方，能否贴