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
: 繼續跑?
:
: ※ 編輯: lovesnake       來自: 140.121.216.68       (04/14 11:54)
: → yauhh:喔我搞錯了. P(6,3).                          61.231.67.34 04/14 11:51

我初想一下以為我搞錯,但自己寫個程式算一下,結果可見我並沒有搞錯.

: 那種想法我有想過，可是程式該怎麼實作呢?
: 當初想到這個想法我以為有解了...結果程式寫不出來XD
: 懇請賜教
: ※ 編輯: lovesnake       來自: 140.121.216.68       (04/14 11:55)

這個小小的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, 所以猜想,會重複產生的東西,應該是看你程式怎麼寫.

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.231.67.34
※ 編輯: yauhh           來自: 61.231.67.34         (04/14 12:11)
推 lovesnake:重複是因為我誤會你的想法~那個沒事了~
→ lovesnake:Erlang...看不懂 糟糕了XD
→ lovesnake:方便寫PrusudoCode嗎>"<
→ lovesnake:錯字= =Presudo
→ lovesnake:那個Elang感覺好高階...我還在用C++
→ lovesnake:又錯字= =Erlang

perms([], _) -> [[]];
perms(_, 0) -> [[]];
perms(L, N)  -> [[H|T] || H <- L, T <- perms(L, N-1) ].
意思是:
function perms( List, Number, Set )
        if List = {} then Set := {{}}, return
        if Number = 0 then Set := {{}}, return
        for i := 1 to length(List)
                Set1 := {}
                perms( List, (Number - 1), Set1 )
                for j := 1 to length(Set1)
                        Set := union(Set, concat(List[i], Set1[j]))
        return

[L || L<-test:perms(lists:seq(1,6), 3), lists:sum(L) == 8]
意思是:
function take_the_set()
        Set := {}
        Set1 := {}
        perms( {1,2,3,4,5,6}, 3, Set1 )
        for i := 1 to length(Set1)
                if sum(Set1[i]) = 8 then Set := union(Set, Set1[i])
        return Set

※ 編輯: yauhh           來自: 61.231.67.34         (04/14 12:43)
推 lovesnake:有點複雜= =" 待我研究一下 先謝過了