main_marking5/bf_test3.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 31 Jan 2021 03:24:32 +0000
changeset 392 e776db3c808b
child 421 864107857d27
permissions -rw-r--r--
marking 5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     1
import CW10a._
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     3
assert(jumpRight("[xxxxxx]xxx", 1, 0) == 8)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     4
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     5
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)  
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     6
assert(jumpRight("[xx[xxx]xxx", 1, 0) == 11)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     7
assert(jumpRight("[x[][]x]xxx", 1, 0) == 8)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     8
assert(jumpLeft("[xxxxxx]xxx", 6, 0) == 1)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     9
assert(jumpLeft("[xxxxxx]xxx", 7, 0) == -1)
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    10
assert(jumpLeft("[x[][]x]xxx", 6, 0) == 1)