gistfile1.rb

# -*- coding: utf-8 -*-                                                                                                                               

## http://job.j-sen.jp/18235/                                                                                                                         
## 4種類のアルファベット "A,C,G,T" から成るn文字の文字列のシーケンスの中から、                                                                        
## "AAG"という並びが含まれる文字列を全て列挙するプログラムを書きなさい。                                                                              

def make_string(n, words)
  return [""] if n == 0
  strings = []
  words.each do |word|
    make_string(n-1, words).each do |w|
      strings << word + w
    end
  end
  strings
end

words = %w[A G C T]
puts make_string(6, words).delete_if{|x| !x.index("AAG")}