main_marking5/bf_test4.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Mon, 21 Jul 2025 16:38:07 +0100
changeset 491 2a30c7dfe3ed
parent 460 f5c0749858fd
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     1
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     2
def urbanmain() = {
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     3
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     4
  import M5a._
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     5
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     6
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     7
  import scala.concurrent._
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     8
  import scala.concurrent.duration._
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
     9
  import ExecutionContext.Implicits.global
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    10
  import scala.language.postfixOps 
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    11
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    12
  lazy val f = Future {
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    13
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    14
    assert(run("[-]", Map(0 -> 100)) == Map(0 -> 0))
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    15
    assert(run("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    16
    assert(run("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
421
Christian Urban <christian.urban@kcl.ac.uk>
parents: 392
diff changeset
    17
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    18
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    19
    val hw_urban = """+++++[->++++++++++<]>--<+++[->>++++++++++
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    20
                  <<]>>++<<----------[+>.>.<+<]"""
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    21
    assert(run(hw_urban) == Map(0 -> 0, 1 -> 58, 2 -> 32))
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    22
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    23
    val hw_urban1 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    24
                   +++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    25
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    26
    assert(run(hw_urban1) == Map(0 -> 0, 5 -> 33, 1 -> 0, 6 -> 10, 2 -> 72, 3 -> 100, 4 -> 87))
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    27
491
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    28
  }
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    29
2a30c7dfe3ed updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 460
diff changeset
    30
  Await.result(f, 32 second)
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    31
}