Перевод из арабской системы счисления в римскую - Lisp

Формулировка задачи:

Заготовка программы:
(defun ArabRim ()
(setf R (vector "I" "V" "X" "L" "C" "D" "M"))
(format t "Vvedite Arab = ")
(setf Arab (read-line))
(setf SArab (reverse Arab))
  (do ((i 0 (+ i 1)))
      ((> i 3) 'done)
(setf y  (char SArab i))
(setf s  (parse-integer y))
(format t "~A" (+ 2 s))))
Мне настолько непонятно, что я просто прошу переделать прогу так что бы она работала ... И ещё я прошу назвать мне функцию которая вычисляет кол-во знаков в строке (CLISP) ...

Код к задаче: «Перевод из арабской системы счисления в римскую - Lisp»

textual
(setf y  (char "3497" i))
(setf s  (parse-integer y)

9   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ