兩套海龜的不同組合在netlogo中

Question

我正在努力製作netlogo中的程序，它可以將不同的海龜組合編成兩套。例如， ;系統中共有10只烏龜[0 1 2 3 4 5 6 7 8 9]，我想將這些烏龜的不同組合製作成兩套。 {[0 6 7 8] [1 2 3 4 5 9]}，{[2 3 6 8 9] [0 1 4 5 7]} .......等等。

任何幫助將非常感激。

Answer 1

這可能是你想要的。以下代碼通過對列表進行排序並刪除重複項（即刪除[[1 2] [3]]和[[2 1] [3]]來刪除重複項，因爲它會對第一個列表進行排序，然後將[1 2 ]這將導致匹配）。砍掉一個元素並將其插入左側子列表並遞歸。

您可以想象列表中的每個數字都與誰對應。所以你可以做

let alist [who] of turtles 

讓我知道如果您有任何疑問

to-report permutate-sublist [added-whos remaining-whos] 
    ifelse length remaining-whos = 1 
    [ 
    report (list (list (sort added-whos) (sort remaining-whos))) 
    ] 
    [ 
    let result (list) 
    foreach (sort remaining-whos) 
    [ 
     let x ? 
     let new-whos (sentence added-whos x) 
     let new-remaining-whos (remove x remaining-whos) 
     set result (sentence (list (list (sort new-whos) (sort new-remaining-whos))) result) 
     set result (remove-duplicates (sentence (permutate-sublist new-whos new-remaining-whos) result)) 
    ] 
    report result 
    ] 
end 

這是當你打印出來的結果

let alist (list 1 2 3) 
show permutate-sublist (list) alist 

[[[2 3] [1]] 
[[1 3] [2]] 
[[3] [1 2]] 
[[1 2] [3]] 
[[2] [1 3]] 
[[1] [2 3]]]