marking5/bf_test7.scala
author Christian Urban <urbanc@in.tum.de>
Tue, 22 Jan 2019 12:53:05 +0000
changeset 258 41c4f7d85f59
parent 255 465b8f93e15f
child 286 269d7ca62c5e
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
255
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     1
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     2
assert(combine(optimise(load_bff("benchmark.bf"))).length == 134)
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     3
assert(combine(optimise(load_bff("mandelbrot.bf"))).length == 6509)
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     4
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     5
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     6
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     7
assert(run4("[-]", Map(0 -> 100)) == Map(0 -> 0))
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     8
assert(run4("[->+<]", Map(0 -> 10)) == Map(0 -> 0, 1 -> 10))
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
     9
assert(run4("[>>+>>+<<<<-]", Map(0 -> 42)) == Map(0 -> 0, 2 -> 42, 4 -> 42))
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    10
val hw_urban2 = """+++++[->++++++++++<]>--<+++[->>++++++++++
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    11
                  <<]>>++<<----------[+>.>.<+<]"""
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    12
assert(run4(hw_urban2) == Map(0 -> 0, 1 -> 58, 2 -> 32))
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    13
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    14
val hw_urban3 = """++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    15
                   +++++++..+++.>>.<-.<.+++.------.--------.>>+.>++."""
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    16
465b8f93e15f updated
Christian Urban <urbanc@in.tum.de>
parents:
diff changeset
    17
assert(run4(hw_urban3) == Map(0 -> 0, 5 -> 33, 1 -> 0, 6 -> 10, 2 -> 72, 3 -> 100, 4 -> 87))