puzzleup 2016

〇〇

lugionline 发表于 2016-9-8 06:36
这题不难吧， SQL应当也毫无压力
Out[7]= {3, 3}
Out[8]= {{dice -> {6, 9, 12, 15, 18, 21}, sum -> 81} ...

求全排列有Permutations,求组合有单个函数吗?
Union[Sort /@ Permutations[{a, b, c, d}, {3}]]

{{a, b, c}, {a, b, d}, {a, c, d}, {b, c, d}}

newkid

〇〇 发表于 2016-9-8 11:09
这样少点
abcd%(a+b+c+d+e+f)=0 and abce%(a+b+c+d+e+f)=0 =>abc(d+e)%(a+b+c+[d+e]+f)=0
设d+e=x

你这推理是单向的，d+e满足了分开未必就满足。

lugionline

〇〇 发表于 2016-9-8 19:00
求全排列有Permutations,求组合有单个函数吗?
Union[Sort /@ Permutations[{a, b, c, d}, {3}]]

可以的
In[5]:= Subsets[{a, b, c, d}, {3}]
Out[5]= {{a, b, c}, {a, b, d}, {a, c, d}, {b, c, d}}

不过这题不需要这样处理，考虑下 总和的质因子呢

〇〇

lugionline 发表于 2016-9-9 06:50
可以的
In[5]:= Subsets[{a, b, c, d}, {3}]
Out[5]= {{a, b, c}, {a, b, d}, {a, c, d}, {b, c, d}}

只知道每个整数都能表示成2^n1*3^n2*5*^n3

〇〇

lugionline 发表于 2016-8-25 09:06
看不出这个有什么用，不就是一个B+数加redis么，还死贵

用q来做个图试试，k1,k2,k3 在空间的分布

了解了下redis,q的语言功能还是比它丰富

〇〇

〇〇 发表于 2016-9-9 14:39
了解了下redis,q的语言功能还是比它丰富

又了解一下,redis包含lua解释器，那就和q有得拼了

〇〇

lugionline 发表于 2016-9-8 06:36
这题不难吧， SQL应当也毫无压力
Out[7]= {3, 3}
Out[8]= {{dice -> {6, 9, 12, 15, 18, 21}, sum -> 81} ...

一直理解错了,以为每次扔的数字不同,
那个答案是36
2 3 4 6 9 12

〇〇

〇〇 发表于 2016-9-11 11:44
一直理解错了,以为每次扔的数字不同,
那个答案是36
2 3 4 6 9 12

如果放回式取数,那就要求最小的取4次也符合,那就是最小数的4次方是6数和的倍数
6数和的倍数候选数1 16 81 ...

〇〇

〇〇 发表于 2016-9-11 11:44
一直理解错了,以为每次扔的数字不同,
那个答案是36
2 3 4 6 9 12

In[60]:= Solve[a+b+c+d+e+f==36&&Mod[abcd,36]==0&&Mod[abce,36]==0&&Mod[abcf,36]==0&&a>=1&&b>a&&c>b&&d>c&&e>f&&f>e,{a,b,c,d,e,f}, Integers]
Out[60]= {}

〇〇

In[47]:= x

Out[47]= {2, 3, 4, 6, 9, 12}
In[3]:= y=Subsets[x,{4}]
In[48]:= Exp/@Total/@Log/@y / Total[x]

Out[48]= {4, 6, 8, 9, 12, 18, 12, 16, 24, 36, 18, 24, 36, 54, 72}