Предыдущая страница [1] > 2 <

Автор Сообщение

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3549   2010-11-23 18:55 GMT+3 часа(ов)      
и снова assoc ладно, сегодня-завтра буду сидеть сама копаться, спасибо вам. если вдруг еще у кого-нибудь возникнут идеи по решению моей проблемы, буду признательна.

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#3550   2010-11-23 19:04 GMT+3 часа(ов)      
«...equal или set...»
(equal) - это предикат, возвращающий T(истина) или nil(ложь). (set) - посторонняя функция с побочным эффектом. Можно ли про них говорить "или"? В книге SICP (set) первый раз упоминается на 213 странице из 608, что символизирует. А Вам на какой минуте обучения о нем рассказали?

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3551   2010-11-23 19:08 GMT+3 часа(ов)      
equal хотела использовать для того чтобы программа воспринимала римские цифры как арабские.. а потом уже применить алгоритм, работая с арабскими... или я что-то усложняю?

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#3552   2010-11-23 19:20 GMT+3 часа(ов)      
(defun F (roman)
(if roman
(let
((curr (FIND_MATCH (car roman) '(I V X L C D M) '(1 5 10 50 100 500 1000)))
(tail (cdr roman)))
(if tail
(let
((next (FIND_MATCH (car tail) '(I V X L C D M) '(1 5 10 50 100 500 1000)))
(result (F tail)))
(if (< curr next)
(- result curr)
(+ result curr)))
curr))))

(defun FIND_MATCH (sym roman arabic)
(if roman
(if (equal sym (car roman))
(car arabic)
(FIND_MATCH sym (cdr roman) (cdr arabic)))))

joba

Members


Статус

157 сообщений

Где: ---
Род занятий:
Возраст:

#3553   2010-11-23 20:05 GMT+3 часа(ов)      
(defun table (a)
(cond ((eq a 'I) 1)
((eq a 'V) 5)
((eq a 'X) 10)
((eq a 'L) 50)
((eq a 'C) 100)
((eq a 'D) 500)
((eq a 'M) 1000)))
 
(defun next (roman)
(table (car roman)))
 
(defun delta (i j)
(if (< i j) -1 1))
 
(defun helper (curr tail)
(if tail
(+ (F tail) (* curr (delta curr (next tail))))
curr))
 
(defun F (roman)
(if roman
(helper (next roman)
(cdr roman))))

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3555   2010-11-24 15:35 GMT+3 часа(ов)      
Спасибо, Дорогие!!! Огромное спасибо! а у меня вчера интернет закончился, и я всю ночь прокопалась сама)) Огромнейшее спасибо!!!

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3593   2010-12-04 17:51 GMT+3 часа(ов)      
Добрый вечер, еще раз!! ЭТо опять я, еще с одним вопросом по этой задаче))) вариант решения задачи joba, мне очень понравился, простой и понятный, такой мне и нужен.. только не могли бы подсказать еще два нюанса. как сделать так, чтобы программа считала только правильные риммские числа и не считала неправильные - два случая:
1) пример: XXIVII - т.е. если число I стоит до V и после нее тоже... (это как пример)
2) пример: IIIX - и если перед X стоят три одинаковые цифры...
как эти правила внести в код joba?? подскажите пожалуйста, буду очень вам признательна!

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3601   2010-12-05 21:48 GMT+3 часа(ов)      
Помогитеее, пожалуйста, мне среди недели сдаваться идти! =((

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3629   2010-12-08 08:42 GMT+3 часа(ов)      
=(

Vera Naumova

Members


Статус

16 сообщений

Где: Russia
Род занятий:
Возраст:

#3631   2010-12-08 19:19 GMT+3 часа(ов)      
Очень жду и надеюсь на вашу помощь. ((


Онлайн :

0 пользователь(ей), 39 гость(ей) :