progs/live.scala
changeset 11 417869f65585
parent 10 e7eeeb5b41dc
equal deleted inserted replaced
10:e7eeeb5b41dc 11:417869f65585
     1 import scala.annotation.tailrec   
     1 import scala.annotation.tailrec   
     2 
     2 
     3 
     3 
     4 def collatz(n: Int): List[Int] =
     4 def collatz(n: Long): List[Long] =
     5   if (n == 1) List(1) else
     5   if (n == 1) List(1) else
     6     if (n % 2 == 0) (n::collatz(n / 2)) else 
     6     if (n % 2 == 0) (n::collatz(n / 2)) else 
     7       (n::collatz(3 * n + 1))
     7       (n::collatz(3 * n + 1))
     8 
     8 
     9 def collatz1(n: Int): Int =
     9 def collatz1(n: Long): Int =
    10   if (n == 1) 1 else
    10   if (n == 1) 1 else
    11     if (n % 2 == 0) (1 + collatz1(n / 2)) else 
    11     if (n % 2 == 0) (1 + collatz1(n / 2)) else 
    12       (1 + collatz1(3 * n + 1))
    12       (1 + collatz1(3 * n + 1))
    13 
    13 
    14 @tailrec
    14 @tailrec
    15 def collatz2(n: Long, acc: Int): Int =
    15 def collatz2(n: Long, acc: Int): Int =
    16   if (n == 1) acc else
    16   if (n == 1) acc else
    17     if (n % 2 == 0) collatz2(n / 2, acc + 1) else 
    17     if (n % 2 == 0) collatz2(n / 2, acc + 1) else 
    18       collatz2(3 * n + 1, acc + 1)
    18       collatz2(3 * n + 1, acc + 1)
    19 
    19 
    20 @tailrec
       
    21 def collatz3(n: BigInt, acc: Int): Int =
       
    22   if (n == 1) acc else
       
    23     if (n % 2 == 0) collatz3(n / 2, acc + 1) else 
       
    24       collatz3(3 * n + 1, acc + 1)
       
    25 
       
    26 collatz(1)
    20 collatz(1)
    27 collatz(2)
    21 collatz(2)
    28 collatz(3)
    22 collatz(3)
    29 collatz(4)
    23 collatz(4)
    30 collatz(5)
    24 collatz(5)
    31 collatz(6)
    25 collatz(6).length
    32 collatz(7)
    26 collatz(7)
    33 collatz(8)
    27 collatz(8)
    34 collatz(9)
    28 collatz(9).length
    35 collatz(100000)
    29 collatz(100000)
    36 println((for (i <- 1 to 100000) yield collatz(i).length).max)
    30 println((for (i <- 1 to 10000000) yield collatz(i).length).max)
    37 println((for (i <- 1 to 100000) yield collatz1(i)).max)
    31 println((for (i <- 1 to 10000000) yield collatz1(i)).max)
    38 println((for (i <- 1 to 1000000) yield collatz2(i, 1)).max)
    32 println((for (i <- 1 to 10000000) yield collatz2(i, 1)).max)
    39 println((for (i <- (1 to 10000000).par) yield collatz2(i, 1)).max)
    33 println((for (i <- (1 to 10000000).par) yield collatz2(i, 1)).max)
    40 println((for (i <- (1 to 100000000).par) yield collatz3(i, 1)).max)
    34