Universal Turing machine: Difference between revisions
→Program: Improve style.
Cyril Nocton (talk | contribs) |
Cyril Nocton (talk | contribs) (→Program: Improve style.) |
||
Line 2,390:
0</pre>
<syntaxhighlight lang="lisp">;;;
(defun acl (table input state halt blank)
(loop for code = (cdr (assoc state table))
with x = t
do (dolist (c
(= (
(< (when x (
(setf
finally (format t "Q = (~a ~{~a~}.~{~a~})~%"
====Tables====
|