marking5/bf1c_test.scala
author Christian Urban <urbanc@in.tum.de>
Wed, 16 Jan 2019 12:20:34 +0000
changeset 253 4da8550b2d0b
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
253
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     1
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     2
import CW8b._
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     3
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     4
assert(start("[-]", Map(0 -> 100)) == Map(0 -> 0))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     5
assert(start("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     6
assert(start("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     7
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     8
val hello = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     9
               +++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    10
assert(start(hello, Map()) == Map(0 -> 0, 5 -> 33, 1 -> 0, 6 -> 10, 2 -> 72, 3 -> 100, 4 -> 87))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    11
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    12
assert(start("+++++[->++++++++++<]>--<+++[->>++++++++++<<]>>++<<----------[+>.>.<+<]", Map()) == Map(0 -> 0, 1 -> 58, 2 -> 32))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    13
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    14
val hello2 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+++.>>.<-.<.+++.------.--------.>>+.>++.!!!!!!!!!"""
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    15
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    16
assert(start(hello2, Map()) == Map(0 -> 0, 5 -> 33, 1 -> 0, 6 -> 10, 2 -> 72, 3 -> 100, 4 -> 87))
4da8550b2d0b updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    17