Universal Turing machine: Difference between revisions
m
→Control language version
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) |
||
Line 2,401:
(dolist (token rule)
(case token
(= (setf match (eql (car right)
(% (when match (rplaca right
(< (when match (push (pop left) right)))
(> (when match (push (pop right) left)))
| |||