12 lines
341 B
Racket
12 lines
341 B
Racket
(#rx"input q at position 1"
|
|
([judgment (ctc-fail q s)])
|
|
(judgment-holds judgment))
|
|
(#rx"output q at position 2"
|
|
([judgment (ctc-fail a s)])
|
|
(judgment-holds judgment))
|
|
(#rx"input q at position 1"
|
|
([judgment (ctc-fail b s)])
|
|
(judgment-holds judgment))
|
|
(#rx"output q at position 2"
|
|
([judgment (ctc-fail c s)])
|
|
(judgment-holds judgment)) |