main_marking5/bf_test3.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Thu, 04 Nov 2021 12:20:12 +0000
changeset 395 017f621f5835
parent 392 97ecdc8cb61b
child 424 daf561a83ba6
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
392
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     1
import CW10a._
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     3
assert(jumpRight("[xxxxxx]xxx", 1, 0) == 8)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     4
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     5
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)  
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     6
assert(jumpRight("[xx[xxx]xxx", 1, 0) == 11)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     7
assert(jumpRight("[x[][]x]xxx", 1, 0) == 8)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     8
assert(jumpLeft("[xxxxxx]xxx", 6, 0) == 1)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     9
assert(jumpLeft("[xxxxxx]xxx", 7, 0) == -1)
97ecdc8cb61b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    10
assert(jumpLeft("[x[][]x]xxx", 6, 0) == 1)