PUZZLEUP 2015

lugionline

跑在虚拟机里面的盗版9

newkid

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

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

P币可以干什么？可以用来买徽章。
徽章可以干什么？可以用来卖P币。
二者就是这么个辩证的关系

注意是写了SQL参赛才有出场费哦。

〇〇

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

In[1]:= K = 4;

我的机器还是慢一点,但比第一版快几倍

所以不是机器和软件版本问题,而是算法和工具问题
Mathematica 7.0 for Microsoft Windows (32-bit)
Copyright 1988-2008 Wolfram Research, Inc.

In[1]:=  K = 4;

In[2]:=  R0 = Table[1, {K}];

In[3]:=  Timing@Count[Map[
            Length[Select[R0.#, # <= 0 &]] &,
            Tuples[Select[Tuples[{1, 0, -1}, K], Total[#] > 0 &], K]], 0]

Out[3]= {2.309, 294879}

In[4]:=  K = 4;

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

Out[5]= {8.128, 294879}

lugionline

newkid 发表于 2015-12-4 22:50
P币可以干什么？可以用来买徽章。
徽章可以干什么？可以用来卖P币。
二者就是这么个辩证的关系

啊，我理解错误，还以为贴M代码就能赚1万PB呢呵呵，不写SQL，太累心了

lugionline

我帮你试了下，原始版本在 RPi 上跑了将近3分钟，在版本9上跑了4秒

最新改进的版本在RPi上用了9秒，在版本9上跑了0.5秒

我相信这是版本问题

〇〇

lugionline 发表于 2015-12-5 18:04
啊，我理解错误，还以为贴M代码就能赚1万PB呢呵呵，不写SQL，太累心了

用京东卡买点补品

〇〇

lugionline 发表于 2015-12-5 18:34
我帮你试了下，原始版本在 RPi 上跑了将近3分钟，在版本9上跑了4秒

最新改进的版本在RPi上用了9秒，在版 ...

版本9和rpi是什么关系？rpi上的什么版本，如果也是9，就证明cpu弱

newkid

lugionline 发表于 2015-12-5 18:04
啊，我理解错误，还以为贴M代码就能赚1万PB呢呵呵，不写SQL，太累心了

你说要给大家贴个指导方向，是指什么？M代码能指导SQL编写吗？还是测试数据？

〇〇

newkid 发表于 2015-12-6 06:35
你说要给大家贴个指导方向，是指什么？M代码能指导SQL编写吗？还是测试数据？

可能指直接用M参赛

lugionline

看看这个数据对不对，给大家做调试用

2*2 2子棋 胜负平局数和最终状态



3*2 2子棋  胜负平局数和最终状态


3子棋的几局 "名局"，第一个数字表示预先下好的棋子位置

3子棋好慢...,不过我算了所有的棋局