RosettaCodeData/Task/Roman-numerals-Decode/Common-Lisp/roman-numerals-decode-2.lisp

3 lines
88 B
Common Lisp

(dolist (r '("MCMXC" "MDCLXVI" "MMVIII"))
(format t "~a:~10t~d~%" r (parse-roman r)))