※ 引述《yauhh (哟)》之铭言： : ※ 引述《lovesnake (【忠犬攻一枚】)》之铭言： : : → yauhh:那你422之後怎麽还会出现422? 61.231.67.34 04/14 11:48 : : → yauhh:我觉得422之後应该是431然後就到512了 61.231.67.34 04/14 11:49 : : 喔~ 可能是有误解....我以为你是先做出八个相同的分三个相同的堆 : : 然後再去排列 : : 您说的是直接将後面的元素列为一个集合，随时修改他的极限值吗? : : 像是 10个分4堆 : : {1 [1 (1 7)]} 这样吗? : : 最後一个Set总和八 : : 第二个总和九 : : 第一个总和十 : : 然後最後一个SET组合都跑完了以後第二个SET+1 最後一个SET总和-1 : : 继续跑? : : → yauhh:喔我搞错了. P(6,3). 61.231.67.34 04/14 11:51 : 我初想一下以为我搞错,但自己写个程式算一下,结果可见我并没有搞错. : : 那种想法我有想过，可是程式该怎麽实作呢? : : 当初想到这个想法我以为有解了...结果程式写不出来XD : : 恳请赐教 : 这个小小的Erlang程式,内容说求一列资料L中取N个项目的结果: : -module(test). : -compile(export_all). : perms([], _) -> [[]]; : perms(_, 0) -> [[]]; : perms(L, N) -> [[H|T] || H <- L, T <- perms(L, N-1) ]. : 执行时,算式如下: : #> io:format("~w", [[L || L<-test:perms(lists:seq(1,6), 3), lists:sum(L) == : 8]]). : [[1,1,6],[1,2,5],[1,3,4],[1,4,3],[1,5,2],[1,6,1],[2,1,5],[2,2,4],[2,3,3], : [2,4,2],[2,5,1],[3,1,4],[3,2,3],[3,3,2],[3,4,1],[4,1,3],[4,2,2],[4,3,1], : [5,1,2],[5,2,1],[6,1,1]]ok : 我生不出重复的 4,2,2, 所以猜想,会重复产生的东西,应该是看你程式怎麽写. 我用了ruby写了一个，不过看起来有点丑 def divide_array(array, num) result = Array.new(array[1..-1].combination(num-1).to_a.size) { Array.new(num) { [] } } offset = 0 divide = lambda do |n, count, limit| if n + 1 != num (1..limit-count).each do |i| result[offset][n].push *array[count, i].dup divide.call(n+1, count+i, limit+1) end else result[offset][n].push *array[count..-1].dup offset += 1 end end divide.call(0, 0, array.size - num + 1) result.each_with_index do |a, i| a.each_with_index do |e, j| a[j] = result[i-1][j].dup if e == [] end end result end 看看能不能帮助到你? 稍微说明一下，这个divide_array的结果会把array里的东西分成很多堆 把这个结果阵列(很多堆的array)传回来 所以如果把[1, 2, 3, 4, 5]分成三堆的话 结果会是: [[[1], [2], [3, 4, 5]], [[1], [2, 3], [4, 5]], [[1], [2, 3, 4], [5]], [[1, 2], [3], [4, 5]], [[1, 2], [3, 4], [5]], [[1, 2, 3], [4], [5]]] 我想这应该是你需要的功能? --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 125.228.163.190 ※ 编辑: mars90226 来自: 125.228.250.55 (04/15 15:14)