Universal Turing machine: Difference between revisions

m
Line 2,418:
(t (setf op c)))
(unless (car i) (pop i) (push b i))))
(format t "M = (<~a, ~{~a~}.~{~a~})>~%" q (reverse l) i)))</lang>
 
4. Rules
Line 2,433:
 
5. Execution
 
<pre>M = <state tape head></pre>
 
{{out}}
<pre>(run +incrementer+ '(1 1 1) 'q0 'qf 'b)
M = (<QF, 111.1)>
(run +three-states-buzy-beaver+ '(0) 'a 'halt '0)
M = (<HALT, 111.111)></pre>
 
That's all Folks !
422

edits