author | cu |
Sun, 15 Oct 2017 20:47:14 +0100 | |
changeset 519 | 955d5b3b0619 |
parent 435 | e08431a78f66 |
permissions | -rw-r--r-- |
412 | 1 |
def ders(s: List[Char], r: Rexp) : Rexp = s match { |
117
25999de692b2
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
93
diff
changeset
|
2 |
case Nil => r |
435
e08431a78f66
updated
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
422
diff
changeset
|
3 |
case c::s => ders(s, simp(der(c, r))) |
117
25999de692b2
added slides
Christian Urban <christian dot urban at kcl dot ac dot uk>
parents:
93
diff
changeset
|
4 |
} |