Перевод из арабской системы счисления в римскую - 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) ...

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

textual
                            Листинг программы 
                        
(setf y  (char "3497" i))
(setf s  (parse-integer y)

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы