Recursive segmenter

gistfile1.txt

def segment seq, k, path
  if k==0
    path << seq
    p path
    # puts "k==0\t#{seq}"
  else
    (0..seq.length-k-1).each do |i|
      # puts "seq = #{seq}, k == #{k}, i == #{i}"
      pa = path.clone
      left = seq[0..i]
      pa << left
      right = seq[i+1..seq.length-1]
      # puts "left: #{left}\tright: #{right}"
      segment(right, k-1, pa)
    end
  end
end

a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

segment(a, 4, [])