main_testing5/bf_test4.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Thu, 10 Nov 2022 09:52:40 +0000
changeset 438 a02e9efd7bc9
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
236
fac3ebafbac1 updated
Christian Urban <urbanc@in.tum.de>
parents: 235
diff changeset
     3
assert(run("[-]", Map(0 -> 100)) == Map(0 -> 0))
fac3ebafbac1 updated
Christian Urban <urbanc@in.tum.de>
parents: 235
diff changeset
     4
assert(run("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
fac3ebafbac1 updated
Christian Urban <urbanc@in.tum.de>
parents: 235
diff changeset
     5
assert(run("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
404
5ff7ffa929cc updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 348
diff changeset
     6
340
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
     7
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
     8
235
9e216601435f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     9
340
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
    10
val hw_urban = """+++++[->++++++++++<]>--<+++[->>++++++++++
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
    11
                  <<]>>++<<----------[+>.>.<+<]"""
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
    12
assert(run(hw_urban) == Map(0 -> 0, 1 -> 58, 2 -> 32))
b37db1787e1b updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 329
diff changeset
    13