Problem:
カードゲーム

問題

次のような2人で行うカードゲームがある．

このゲームでは， 1から2nまでの各整数が書かれた全部で2n枚のカードを使用する． ここで，nは1以上100以下の整数である．

このカードを2人にn枚ずつ配る．

次のルールに従って交互にカードを1枚ずつ場に出す．

場にカードが出ていないならば， 好きなカードを出すことができる．

場にカードが出ているならば， 最後に場に出たカードよりも大きい数の書かれたカードを出すことができる．

カードが出せる場合は，必ず場にカードを出す必要がある．

出せるカードが無い場合はパスとなり，相手の番になる． このとき，場に出ているカードは無くなる．

ゲームは場にカードが出ていない状態で始める．

どちらかの手持ちのカードが無くなった時点でゲームは終了する．

ゲーム終了時に相手の持っているカードの枚数を得点とする．

太郎と花子は，このゲームで対戦することになった．ゲームは太郎の番から始める． 2人は共に，出すことのできるカードのうち必ず一番小さい数が書かれたカードを出すことにしている．

太郎に配られるカードが入力されたとき，太郎と花子の得点を出力するプログラムを作成せよ．

入力

入力は複数のデータセットからなる．各データセットは以下の形式で与えられる．

入力は n+1 行ある． 1行目には整数nが書かれている． 2行目からn+1行目までの各行には整数が1つずつ書かれており，太郎に配られるカードに書かれた整数を表す．

n が 0 のとき入力の終了を示す. データセットの数は 5 を超えない．

出力

データセットごとに 1行目には太郎の得点を， 2行目には花子の得点を出力せよ．

入出力例

入力例

5
1
7
9
6
10
10
8
7
14
18
4
11
3
17
5
19
0

出力例

3
0
2
0

上記問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in Scala (judge verdict: Accepted)

import scala.io.StdIn.readInt

object Main extends App {
  Iterator.continually(readInt).takeWhile(_!=0).foreach { n=>
    val total = (1 to 2*n).toList
    val taro = { for(i<-0 until n) yield readInt }.toList.sorted
    val hanako = (total filterNot taro.toSet).sorted
    def play(t:List[Int],h:List[Int],x:Int,turn:Int):(Int,Int) = {
      if(h.length==0 || t.length==0) (h.length,t.length)
      else if(turn%2 == 0) {
        if(t.exists(_ > x)) {
          val y = t.find(_>x).get
          play(t.filter(_!=y),h,y,turn+1)
        } else play(t,h,0,turn+1)
      } else {
        if(h.exists(_ > x)) {
          val y = h.find(_>x).get
          play(t,h.filter(_!=y),y,turn+1)
        } else play(t,h,0,turn+1)
      }
    }
    val (t,h) = play(taro,hanako,0,0)
    println(t)
    println(h)
  }
}