Quick and dirty perms script for tansaku

perms.rb

names =  ["Pablo", "Dan", "Andrew", "Tom", "Rob", "Jay", "Norm", "Yev"]

def make_pairs_from_perms perms
  full_set = []

  perms.each do |x|
    z = []
    x.each_slice(2){|y| z << y}
    full_set << z
  end
  full_set
end

def quick_filter_sort perms
  perms.map{|x| x.map(&:sort)}.map(&:sort).uniq
end

def no_dups lst
  dups = lst.dup
  acc = []
  pairs_seen = []
  until dups.empty?
    cmbn = dups.pop
    if cmbn.any?{|pair| pairs_seen.include?(pair)}
    else
      acc << cmbn
      cmbn.each{|pair| pairs_seen << pair}
    end
  end
  acc 
end

perms = names.permutation
paired_perms = make_pairs_from_perms perms
filtered = quick_filter_sort paired_perms
no_dups(filtered).each{|x| p x}