第27回オフラインリアルタイムどう書くの問題をRubyで解く

問題はこちらから
http://qiita.com/Nabetani/items/23ebddb44f0234e7fb15

RAILS=[
      ["14",["abc","gc","gh"]],
      ["15",["ab","ge"]],
      ["16",["abc","ghi","gc"]],
      ["24",["dc","h"]],
      ["25",["de"]],
      ["26",["hi","dc"]],
      ["34",["bc","fgc","fgh"]],
      ["35",["b","fge"]],
      ["36",["fghi","bc","fgc"]],
]

def solve(q)
  RAILS.map{|r, points|
    points.select{|ps| (ps.chars-q.chars).join==ps}.empty? ? nil : r
  }.select{|r| r}.join(",")
end

DATA.readlines.each do |line|
  no,q,a = line.strip.split(/\s+/)
  ans = solve(q)
  ans = "-" if ans == ""
  print no + "\t" + ans
  puts ans == a ? ' o' : ' x'
end
__END__
0   befi    14,16,24,26
1   abc 14,15,16,24,25,26,34,35,36
2   de  14,15,16,24,26,34,35,36
3   fghi    14,15,16,24,25,26,34,35,36
4   abcdefghi   -
5   ag  24,25,26,34,35,36
6   dh  14,15,16,34,35,36
7   bf  14,15,16,24,25,26
8   ch  15,25,35
9   be  14,16,24,26,34,36
10  ci  14,15,24,25,34,35
11  cgi 15,24,25,35
12  acgi    24,25,35
13  cdefghi 15,35
14  acdefghi    35
15  cdegi   15,24,35
16  bcdegi  24
17  afh 14,15,16,24,25,26,34,35,36
18  abfh    14,15,16,24,25,26
19  dfh 14,15,16,34,35,36
20  cdfh    15,35
21  deh 14,15,16,34,35,36
22  cdeh    15,35
23  abefgh  24,26
24  abdefgh -
25  acfghi  25,35
26  acdfghi 35
27  cegi    15,24,35
28  abcfhi  15,25
29  abcefhi -
30  abdi    14,15,16,24,34,35,36
31  abdfi   14,15,16,24
32  bdi 14,15,16,24,34,35,36
33  bdfi    14,15,16,24
34  adfh    14,15,16,34,35,36
35  adfgh   34,35,36
36  acdfhi  15,35
37  bcdfgi  24
38  bcdfghi -
39  defi    14,15,16,24,34,35,36
40  defhi   14,15,16,34,35,36
41  cdefg   15,24,26,35
42  cdefgi  15,24,35
43  bdefg   24,26
44  bdefgi  24