ズンドコプログラム

zundoko.scala

object Main {
                                                                                                                                                                        
  def main(args: Array[String]) {
    kiyoshi( List() )
  }

  def kiyoshi(list: List[String]): Unit = { 
    list.reverse match {
      case List("ズン", "ズン", "ズン", "ズン", "ドコ") => println("キ・ヨ・シ！"); sys.exit();
      case _ => {
        val next = shout()
        println(next)
        kiyoshi(next :: prune(list))
      }   
    }   
  }

  def shout() = { 
    import scala.util.Random
    val r = new Random()
    val list = List("ズン", "ドコ")
    r.shuffle(list).head
  }

  def prune(list: List[String]) = list.size match {
    case 5 => list.reverse.tail.reverse
    case _ => list
  }
}