progs/app51.scala
author Christian Urban <christian dot urban at kcl dot ac dot uk>
Tue, 21 Jul 2020 00:12:34 +0100 (2020-07-20)
changeset 737 14a348d050b3
parent 399 5c1fbb39c93e
permissions -rw-r--r--
updated
def OPT(r: Rexp) = ALT(r, ONE)

def NTIMES(r: Rexp, n: Int) : Rexp = n match {
  case 0 => ONE
  case 1 => r
  case n => SEQ(r, NTIMES(r, n - 1))
}