Execute Brain****/Common Lisp: Difference between revisions
Content added Content deleted
m (<code>) |
m (<lang>) |
||
Line 2: | Line 2: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
< |
<lang lisp> |
||
(defstruct bf-state |
|||
(program) |
(program) |
||
(program-counter 0) |
(program-counter 0) |
||
Line 59: | Line 60: | ||
(loop do (fresh-line) |
(loop do (fresh-line) |
||
(princ "BRAINFUCK> ") |
(princ "BRAINFUCK> ") |
||
(brainfuck-eval (make-bf-state :program (read-line))))) |
(brainfuck-eval (make-bf-state :program (read-line))))) |
||
</lang> |