testing1/collatz.scala
author Christian Urban <urbanc@in.tum.de>
Thu, 31 Oct 2019 09:20:43 +0000
changeset 294 11c0f70ba243
parent 281 32dfd2ca577b
child 314 6624122bdf74
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
127
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
     1
// Part 1 about the 3n+1 conjecture
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
     2
//==================================
167
1bbd4db36151 updated
Christian Urban <urbanc@in.tum.de>
parents: 144
diff changeset
     3
281
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
     4
// generate jar with
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
     5
//   > scala -d collatz.jar  collatz.scala
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     6
281
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
     7
object CW6a { 
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
     8
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     9
127
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
    10
def collatz(n: Long): Long =
199
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    11
  if (n == 1) 0 else
127
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
    12
    if (n % 2 == 0) 1 + collatz(n / 2) else 
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
    13
      1 + collatz(3 * n + 1)
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    14
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    15
127
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
    16
def collatz_max(bnd: Long): (Long, Long) = {
199
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    17
  val all = for (i <- (1L to bnd)) yield (collatz(i), i)
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    18
  all.maxBy(_._1)
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    19
}
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    20
281
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    21
199
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    22
/* some test cases
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    23
val bnds = List(10, 100, 1000, 10000, 100000, 1000000)
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    24
199
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    25
for (bnd <- bnds) {
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    26
  val (steps, max) = collatz_max(bnd)
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    27
  println(s"In the range of 1 - ${bnd} the number ${max} needs the maximum steps of ${steps}")
127
01d522ba48d4 updated
Christian Urban <urbanc@in.tum.de>
parents: 126
diff changeset
    28
}
126
2069054c2cac updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    29
199
2e13dedd922e updated
Christian Urban <urbanc@in.tum.de>
parents: 197
diff changeset
    30
*/
171
2545bdf5ace0 updated
Christian Urban <urbanc@in.tum.de>
parents: 167
diff changeset
    31
281
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    32
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    33
}
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    34
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    35
32dfd2ca577b updated
Christian Urban <urbanc@in.tum.de>
parents: 199
diff changeset
    36