Execute Brain****/Common Lisp: Difference between revisions
Content added Content deleted
m (→{{header|Common Lisp}}: reformatted) |
m ((float edit in strange pos, ... fixed?)) |
||
Line 1: | Line 1: | ||
{{implementation|Brainf***}}{{collection|RCBF}} |
{{implementation|Brainf***}}{{collection|RCBF}} |
||
⚫ | |||
⚫ | |||
<lang lisp> |
|||
(defstruct bf-state |
<lang lisp>(defstruct bf-state |
||
(program) |
(program) |
||
(program-counter 0) |
(program-counter 0) |
||
Line 65: | Line 64: | ||
(loop do (fresh-line) |
(loop do (fresh-line) |
||
(princ "BRAINFUCK> ") |
(princ "BRAINFUCK> ") |
||
(bf (read-line)))) |
(bf (read-line))))</lang> |
||
</lang> |