SHARE
TWEET

automata (scheme)

a guest Oct 3rd, 2010 315 Never
  1. (define (v s)
  2.   ((if (eq? (first s) 'c)
  3.        (letrec ((init (accept 'c loop))
  4.                 (loop (accept 'a loop
  5.                               'd loop
  6.                               'r end))
  7.                 (end (accept 'r end)))
  8.          init)
  9.        (letrec ((see0 (accept '0 see1))
  10.                 (see1 (accept '1 see0)))
  11.          see0))
  12.    s))
RAW Paste Data
Top