12 lines
259 B
Racket
12 lines
259 B
Racket
#lang racket
|
|
(require unstable/automata/re
|
|
unstable/automata/re-ext
|
|
unstable/automata/machine
|
|
unstable/match
|
|
tests/eli-tester)
|
|
|
|
(define r (re (seq 1 2 3)))
|
|
(define r0 (r 1))
|
|
(machine-accepting? (r0 1))
|
|
(machine-explain r0)
|