combinations - 从 Smalltalk 中的集合生成所有组合

Question

我已经看到 C# 和其他语言解决了这个问题，但 Smalltalk 却没有。我有 3 个集合，例如:

a := #(3 4 5).
b := #(4 1 2).
c := #(5 2 3).

我需要做出所有可能的组合，即。 e.:

#(3 4 5)
#(3 4 2)
#(3 4 3)

#(3 1 5)
#(3 1 2)
#(3 1 3)

#(3 2 5)
#(3 2 2)
#(3 2 3)

#(4 4 5)
...

我在 Squeak 和 Pharo 中看到有组合:atATimeDo: 但我不知道如何在这种情况下使用它。这不是家庭作业。有什么帮助吗？

Answer 1

这有点神秘，但很简短。它将 block 用作匿名函数(有点，它仍然需要从变量中引用，以便可以递归调用)。

| expand |
expand := [ :prefix :lists |
    lists isEmpty
        ifTrue: [ Array with: prefix ]
        ifFalse: [ | tail |
            tail := lists allButFirst: 1.
            lists first inject: #() into: [ :all :each |
                all, (expand value: (prefix copyWith: each) value: tail) ] ] ].
expand value: #() value: #((3 4 5)(4 1 2)(5 2 3))