※ 引述《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)