Problem:
あみだくじ II

縦線が n 本のあみだくじがあります。このあみだくじは以下の条件を満たしています。

横線は真横に引きます。斜めに引くことはありません。

横線は必ず隣り合った縦線同士をつなぎます。つまり、横線が縦線をまたぐことはありません。

どの縦線についても同じ点から左右同時に横線が出ることはありません。つまり、横線が縦線を横切ることはありません。

当りはひとつだけです。

下図 に n = 5 のときの、あみだくじの例を示します。上側の数字は縦線の番号(左から1, 2, 3, 4, 5 ) を表します。☆が当たりです。

縦線の本数 n、選んだ縦線の番号 m、あみだくじの当りの場所、各段における横線の有無を読み込んで、当りにたどり着けるかどうかの判定を出力するプログラムを作成してください。ただし、与えられたあみだくじの任意の位置に1 本だけ横線を付け加えることができるものとします（付け加えなくてもかまいません）。横線を1 本付け加えた後のあみだくじも前述の条件を満たしていなければなりません。

Input

複数のデータセットが与えられます。各データセットは以下のとおりです：

１行目に、縦線の本数 n (1 < n ≤ 10) が書かれています。

２行目には、選んだ縦線の番号 m (1 ≤ m ≤ n) が書かれています。

３行目には、当りの場所（図でいう☆）が左から数えて何番目かが書かれています。

４行目には、あみだくじの段数 d (1 ≤ d ≤ 30) が書かれています。

５行目以降は、図に対応する数字の並びのように、あみだくじの上から順に、各縦線の間に横線があるときを 1、ないときを 0 として、n - 1 つの数字が並んでいます。

入力は１つの 0 が書かれた行で終わります。

Output

各データセットについて、選んだ縦線の番号 m から当りにたどり着けるかどうかに応じて以下の値を出力してください。

横線を引かなくても当りにたどり着けるときは 0 を出力してください。

横線を1 本引けば当りにたどり着けるときは、その中で最も出発側（図でみて上）に近い横線の位置を出力してください。出発側から数えて何段目（図 を参考にしてください）に、左から数えて何番目の縦線から右に向かって横線を引くかを半角の空白で区切って出力してください。

横線を1 本引いても当りにたどり着けないときには 1 を出力してください。

Sample Input

5
2
3
9
1010
1001
0100
1001
0010
1000
0100
0101
1010
0

Output for the Sample Input

6 4

Solution in Ruby (judge verdict: Wrong Answer)

def amida(n,m,s,l)
  a=Array.new(n) {|i| i+1}
  l.each do |i|
    # puts "#{i.join}"
    i.each_with_index do |j,id|
      a[id],a[id+1]=a[id+1],a[id] if j==1
    end
  end
  # p a
  # puts "m:#{m}, s:#{s}"
  return a[s-1]==m ? true : false
end

loop do
  break if gets.chomp=="0"
  n,m,s,d,l=$_.to_i,gets.to_i,gets.to_i,gets.to_i,[]
  # puts "#{n},#{m},#{s},#{d}"
  d.times do
    l<<gets.chomp.split("").map(&:to_i)
  end
  # puts "m:#{m}, s:#{s}"
  if amida(n,m,s,l) then puts 0
  else
    bf=false
    ll= Marshal.load(Marshal.dump(l))
    l.each_with_index do |i, idi|
      #0010???0111??¨???????????????1?????£???0???1??¨??´??°??????0111?????????each??§0?????´???1?????????(0010???1010)??????????????????????????????
      i.each_with_index do |j, idj|
        if j==1 then
          ll[idi][[0,idj-1].max]=1
          ll[idi][idj]=1
          ll[idi][[n-2,idj+1].min]=1
        end
      end
    end
    # p ll
    ll.each_with_index do |i, idi|
      i.each_with_index do |j, idj|
        # puts "i:#{idi},j:#{idj}" if j==0
        if j==0 then
          l3= Marshal.load(Marshal.dump(l))
          l3[idi][idj]=1
          puts "#{idi+1} #{idj+1}" if bf=amida(n,m,s,l3)
        end
      end
      break if bf
    end
    puts 1 unless bf
  end
end