Question

我有一个矩阵（数组数组），格式为

[1, 2, 3, 4]
[12, 23, 34]
[123, 234]
[1234]

并希望生成此矩阵的序列，这些序列彼此跟随并且（转换为字符串）与索引0（最顶部）处的数组的长度相同。因此，即结果将是

[1, 2, 3, 4]
[12, 3, 4]
[1, 23, 4]
[1, 2, 34]
[12, 34]
[123, 4]
[1, 234]
[1234]

我想要实现的是获取可以直接相互连接的字符串的所有部分并拆分i子数组（如示例所示）。

实现语言无关紧要，但最好是Python，java，ruby，C＃，clojure，Psudo代码或其他相当高级别的语言。

Answer 1

我改进了上一代的代码。

a = ["1", "2", "3", "4"]

['', '.'].repeated_permutation(a.length - 1).map{|b| a.zip(b).join.split('.')}

会给你：

[
  ["1234"],
  ["123", "4"],
  ["12", "34"],
  ["12", "3", "4"],
  ["1", "234"],
  ["1", "23", "4"],
  ["1", "2", "34"],
  ["1", "2", "3", "4"]
]

Answer 2

这是一个Python版本（已编辑更简洁;感谢FMc的建议）：

def consecutive_slice(arr):
    yield arr
    mx = len(arr) + 1
    for size in xrange(2, mx):
        for i in xrange(mx - size):
            yield(arr[:i] + [''.join(arr[i:i+size])] + arr[i+size:])

用法示例：

>>> for seq in consecutive_slice(['1', '2', '3', '4']):
...     print(seq)
... 
['1', '2', '3', '4']
['12', '3', '4']
['1', '23', '4']
['1', '2', '34']
['123', '4']
['1', '234']
['1234']

Answer 3

def adj(ar)
  result = [ar]
  2.upto ar.size do |j|
    0.upto ar.size-j do |i|
      result << [*ar[0, i], ar[i,j].join.to_i, *ar[i+j..-1]]
    end
  end
  result
end

测试

a = [*1..5]
adj a
# [[1, 2, 3, 4, 5], 
#  [12, 3, 4, 5], 
#  [1, 23, 4, 5], 
#  [1, 2, 34, 5], 
#  [1, 2, 3, 45], 
#  [123, 4, 5], 
#  [1, 234, 5], 
#  [1, 2, 345], 
#  [1234, 5], 
#  [1, 2345], 
#  [12345]]

修改

如果你想使用Ruby 1.8.7（上面是1.9 +）

def adj(ar) result = [ar] 2.upto ar.size do |j| 0.upto ar.size-j do |i| result << [ar[0, i], ar[i,j].join.to_i, ar[i+j..-1]].flatten end end result end a = (1..5).to_a adj a #=> same result

Answer 4

哦，这是一个很酷的功能（是吗？）单行解决方案：

a = [1,2,3,4]
result = [array]
2.upto(a.size){ |s| a.each_cons(s).with_index{ |g, i| result << [*(a-g)[0, i], g.join.to_i, *(a-g)[i..-1]] } }
result
# [[1, 2, 3, 4], 
#  [12, 3, 4], 
#  [1, 23, 4], 
#  [1, 2, 34], 
#  [123, 4], 
#  [1, 234], 
#  [1234]]

Answer 5

（Ruby版）我相信这适用于矩阵的一般情况。我转换为字符串，所以排序很好。 已编辑以在生成的序列中包含['12'，'34']。

m = [['1', '2', '3', '4'], ['12', '23', '34'], ['123', '234'], ['1234']]
m0 = m.first.join
seq = m.map do |row|
  ( 1..row.size ).map { |e| row.combination( e ).to_a }.flatten( 1 ).map do |a|
    m0.include?( str = a.join ) ? ( m0.delete( str ).chars.to_a + a ).sort : nil
  end.compact.uniq
end.flatten 1

生成相邻子集的序列（来自列表列表）

5 个答案: