| author | Christian Urban <christian.urban@kcl.ac.uk> |
| Mon, 11 Apr 2022 23:55:27 +0100 | |
| changeset 424 | daf561a83ba6 |
| parent 390 | main_marking3/re_test3.scala@175a950470a9 |
| child 463 | 0315d9983cd0 |
| permissions | -rw-r--r-- |
| 424 | 1 |
import M3._ |
| 390 | 2 |
|
3 |
||
| 424 | 4 |
assert(flts(Nil) == Nil) |
5 |
assert(flts(ZERO::ZERO::Nil) == Nil) |
|
6 |
assert(flts(ZERO::ONE::ZERO::ONE::Nil) == List(ONE, ONE)) |
|
7 |
assert(flts(ONE::ALTs(List(ONE))::ONE::Nil) == List(ONE, ONE, ONE)) |
|
8 |
assert(flts(ONE::ALTs(List(ONE))::ONE::ALTs(List(ONE))::Nil) == List(ONE, ONE, ONE, ONE)) |