marking5/bf_test5.scala
author Christian Urban <christian.urban@kcl.ac.uk>
Sat, 28 Nov 2020 15:58:36 +0000
changeset 378 7a5ad01a85b5
parent 286 5c57c407e27b
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
286
5c57c407e27b updated
Christian Urban <urbanc@in.tum.de>
parents: 255
diff changeset
     1
import CW10b._
255
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     2
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     3
val hw_urban = """+++++[->++++++++++<]>--<+++[->>++++++++++<<]>>++<<----------[+>.>.<+<]"""
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     4
assert(jtable(hw_urban) == Map(69 -> 61, 5 -> 20, 60 -> 70, 27 -> 44, 43 -> 28, 19 -> 6))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     5
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     6
val hw_urban1 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     7
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     8
assert(jtable(hw_urban1) == Map(14 -> 34, 33 -> 15, 45 -> 44, 48 -> 9, 43 -> 46, 8 -> 49))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     9
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    10
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    11
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    12
assert(run2("[-]", Map(0 -> 100)) == Map(0 -> 0))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    13
assert(run2("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    14
assert(run2("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    15
val hw_urban2 = """+++++[->++++++++++<]>--<+++[->>++++++++++
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    16
                  <<]>>++<<----------[+>.>.<+<]"""
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    17
assert(run2(hw_urban2) == Map(0 -> 0, 1 -> 58, 2 -> 32))
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    18
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    19
val hw_urban3 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    20
                   +++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    21
44f2b6e34015 updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    22
assert(run2(hw_urban3) == Map(0 -> 0, 5 -> 33, 1 -> 0, 6 -> 10, 2 -> 72, 3 -> 100, 4 -> 87))