main_marking5/bf_test5.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Fri, 26 Apr 2024 17:29:30 +0100
changeset 482 20f02c5ff53f
parent 460 f5c0749858fd
child 491 2a30c7dfe3ed
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
421
Christian Urban <christian.urban@kcl.ac.uk>
parents: 392
diff changeset
     1
import M5b._
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
460
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     3
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     4
import scala.concurrent._
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     5
import scala.concurrent.duration._
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     6
import ExecutionContext.Implicits.global
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     7
import scala.language.postfixOps 
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     8
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
     9
lazy val f = Future {
392
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    10
val hw_urban = """+++++[->++++++++++<]>--<+++[->>++++++++++<<]>>++<<----------[+>.>.<+<]"""
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    11
assert(jtable(hw_urban) == Map(69 -> 61, 5 -> 20, 60 -> 70, 27 -> 44, 43 -> 28, 19 -> 6))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    12
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    13
val hw_urban1 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    14
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    15
assert(jtable(hw_urban1) == Map(14 -> 34, 33 -> 15, 45 -> 44, 48 -> 9, 43 -> 46, 8 -> 49))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    16
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    17
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    18
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    19
assert(run2("[-]", Map(0 -> 100)) == Map(0 -> 0))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    20
assert(run2("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    21
assert(run2("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    22
val hw_urban2 = """+++++[->++++++++++<]>--<+++[->>++++++++++
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    23
                  <<]>>++<<----------[+>.>.<+<]"""
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    24
assert(run2(hw_urban2) == Map(0 -> 0, 1 -> 58, 2 -> 32))
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    25
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    26
val hw_urban3 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    27
                   +++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    28
e776db3c808b marking 5
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    29
assert(run2(hw_urban3) == 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
    30
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    31
}
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    32
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    33
Await.result(f, 32 second)
f5c0749858fd updated
Christian Urban <christian.urban@kcl.ac.uk>
parents: 421
diff changeset
    34