Anonymous user
Roman numerals/Decode: Difference between revisions
→{{header|Common Lisp}}
Line 689:
<lang lisp>
(defun parse-roman (R)
(loop as (A B) on (
while A sum (if (and B (< A B)) (- A) A)))
</lang>
| |||
Line 689:
<lang lisp>
(defun parse-roman (R)
(loop as (A B) on (
while A sum (if (and B (< A B)) (- A) A)))
</lang>
| |||