main_testing5/bf_test3.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 15 Jan 2023 10:58:13 +0000
changeset 459 7acbef680bef
parent 404 5ff7ffa929cc
child 472 fbff6f601370
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
404
5ff7ffa929cc updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 348
diff changeset
     1
import M5a._
235
9e216601435f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     2
243
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     3
assert(jumpRight("[xxxxxx]xxx", 1, 0) == 8)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     4
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     5
assert(jumpRight("[xx[x]x]xxx", 1, 0) == 8)  
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     6
assert(jumpRight("[xx[xxx]xxx", 1, 0) == 11)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     7
assert(jumpRight("[x[][]x]xxx", 1, 0) == 8)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     8
assert(jumpLeft("[xxxxxx]xxx", 6, 0) == 1)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
     9
assert(jumpLeft("[xxxxxx]xxx", 7, 0) == -1)
80102fba0a93 updated
Christian Urban <urbanc@in.tum.de>
parents: 236
diff changeset
    10
assert(jumpLeft("[x[][]x]xxx", 6, 0) == 1)