287
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
1 |
abstract class Val
|
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
2 |
case object Empty extends Val
|
356
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
3 |
case class Chr(c: Char) extends Val
|
520
|
4 |
case class Sequ(v1: Val, v2: Val) extends Val
|
287
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
5 |
case class Left(v: Val) extends Val
|
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
diff
changeset
|
6 |
case class Right(v: Val) extends Val
|
356
Christian Urban <christian dot urban at kcl dot ac dot uk>
diff
changeset
|
7 |
case class Stars(vs: List[Val]) extends Val
|