第一回オフラインリアルタイムどう書く( http://atnd.org/events/30285 )。
問題は http://nabetani.sakura.ne.jp/hena/1/
当日その場で書いたもの。

# !ruby
# coding:utf-8

data= <<DATA.enum_for( :scan, /\d{3,}/ ).map{|i| i.chars.map{ |c| c.to_i } }
1	79538246	x won.
2	35497162193	x won.
3	61978543	x won.
4	254961323121	x won.
5	6134278187	x won.
6	4319581	Foul : x won.
7	9625663381	Foul : x won.
8	7975662	Foul : x won.
9	2368799597	Foul : x won.
10	18652368566	Foul : x won.
11	965715	o won.
12	38745796	o won.
13	371929	o won.
14	758698769	o won.
15	42683953	o won.
16	618843927	Foul : o won.
17	36535224	Foul : o won.
18	882973	Foul : o won.
19	653675681	Foul : o won.
20	9729934662	Foul : o won.
21	972651483927	Draw game.
22	5439126787	Draw game.
23	142583697	Draw game.
24	42198637563	Draw game.
25	657391482	Draw game.
DATA

def side( ix )
  %w( o x )[ix%2]
end

def line( board, st, dir )
  c=(0..2).map{ |d|
    position=(0..1).map{ |i| st[i]+dir[i]*d }.join
    return false unless ( r = board[ position ] )
    r
  }.join
  c=='xxx' || c=='ooo'
end

def completed( board )
  [ [2,0],[1,0],[0,0],[0,1],[0,2] ].any?{ |st|
    [ [0,1],[1,0],[1,1],[-1,1] ].any?{ |dir|
      line( board, st, dir )
    }
  }
end
  
def titato( game )
  board={}
  game.each_with_index{ |h,ix|
    position=[(h-1)%3,(h-1)/3].join
    return "Foul : #{side(ix+1)} won." if board[position]
    board[position]=side(ix)
    return "#{side(ix)} won." if completed(board)
    return "Draw game." if ix==8
  }
end

data.each{ |game|
  puts titato( game )
}

今までに書いたのとは経路を変えようということで、一列揃っているかどうかの判断を変えてみた。
八通りしかないから全部書こうという作戦をやめ、まっすぐ並んだ三マスとはどういうものかを計算するようにした。遅いけど。

書いてみたところ、これは any? の使い所だ、と気づき、 any? に書き換えた。