[Project Euler] Problem 14

Problem 14

　有名なCollatz問題。最初はListを使っていたのだがOutOfMemoryになるので普通に命令型っぽいプログラムになっている。

object P014 {
  def collatz(n:Long):Int = {
    def f(n:Long, c:Int):Int = {
      if (n==1L) c
      else if (n%2L==0) f(n/2, c+1)
      else f(3L*n+1, c+1)
    }
    f(n,1)
  }
  def mx(a:Tuple2[Long,Int], b:Tuple2[Long,Int]):Tuple2[Long,Int] = if (a._2 > b._2) a else b
  def maxLength(m:Int):Tuple2[Long,Int] = {
    var ts:Tuple2[Long,Int] = Tuple2(0L,0)
    for(x <- List.range(1, m)) {
      val c:Int = collatz(x)
      if (ts._2 < c) {ts = Tuple2(x,c)}
    }
    ts
  }
  def main(args:Array[String]) {
    println(collatz(13L))
    println(maxLength(1000000))
  }
}