progs/app04.scala
changeset 520 2849c305b12d
parent 356 d9c784c71305
equal deleted inserted replaced
519:955d5b3b0619 520:2849c305b12d
     1 abstract class Val
     1 abstract class Val
     2 case object Empty extends Val
     2 case object Empty extends Val
     3 case class Chr(c: Char) extends Val
     3 case class Chr(c: Char) extends Val
     4 case class Seq(v1: Val, v2: Val) extends Val
     4 case class Sequ(v1: Val, v2: Val) extends Val
     5 case class Left(v: Val) extends Val
     5 case class Left(v: Val) extends Val
     6 case class Right(v: Val) extends Val
     6 case class Right(v: Val) extends Val
     7 case class Stars(vs: List[Val]) extends Val
     7 case class Stars(vs: List[Val]) extends Val
     8 case class Rec(x: String, v: Val) extends Val
     8 case class Rec(x: String, v: Val) extends Val