[ruby-list:44150] Re: 2個づつの組を作る方法のすべて

久野と申します。

とりあえず作ってみました。
メモリすごい使いそうですけど。

--------ここから----------
#!/usr/bin/env ruby

def f(a)
  a1 = a.dup
  ret = []
  x = a1.shift
  a1.each_index do |i|
    a2 = a1.dup
    y = a2.delete_at(i)
    if a2.size == 0
      ret << [[x,y]]
    else
      f(a2).each do |a3|
        ret << [[x,y],*a3]
      end
    end
  end
  ret
end

if $0 == __FILE__
  p f([1,2])     #=> [[[1,2]]]
  p f([1,2,3,4]) #=> [[[1,2],[3,4]],[[1,3],[2,4]],[[1,4],[2,3]]]
  p f([1,2,3,1]) #=> [[[1,2],[3,1]],[[1,3],[2,1]],[[1,1],[2,3]]]
  p f([1,2,3,4,5,6]) #=> [[[1,2],[3,4],[5,6]],[[1,2],[3,5],[4,6]],...]
end
--------ここまで----------

以上