Re: [問題] 排列組合，相同物品分發制不同容器
※ 引述《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
→
04/14 14:26, , 1F
04/14 14:26, 1F
※ 編輯: mars90226 來自: 125.228.250.55 (04/15 15:14)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 7 之 11 篇)：