pre_marking4/knight1_test3b.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Mon, 08 Nov 2021 00:17:50 +0000
changeset 400 e48ea8300b2d
parent 387 6282b88511d8
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
386
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     1
import CW9a._
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
//type Pos = (Int, Int)    // a position on a chessboard 
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     3
//type Path = List[Pos]    // a path...a list of positions
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     4
387
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
     5
/*
386
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     6
def count_all_tours_urban(dim: Int) = {
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     7
  for (i <- (0 until dim).toList; 
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     8
       j <- (0 until dim).toList) yield count_tours(dim, List((i, j)))
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     9
}
387
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    10
*/
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    11
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    12
def count_all_tours_urban(dim: Int) = {
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    13
  for (i <- (0 until 3).toList; 
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    14
       j <- (0 until dim).toList) yield count_tours(dim, List((i, j)))
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    15
}
386
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    16
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    17
387
6282b88511d8 updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 386
diff changeset
    18
assert(count_all_tours_urban(5) == List(304, 0, 56, 0, 304, 0, 56, 0, 56, 0, 56, 0, 64, 0, 56))
386
e2170c91a9f2 added marking
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    19