> 1 <

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

evgeniux74

Members


Статус

1 сообщений

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

#793   2009-12-20 17:51 GMT+3 часа(ов)      
Кто-нить помогите плиз решить

Найти наибольший общий делитель для чисел в простом списке

пример работы
(list_nod '(10 20 30))

ответ - 10


я пытался сделать, получилось пока вот что

(defun nod_step (x y)
(if (> x y) (- x y) (- y x))
)
(defun list-nod (l)
 
 
; цикл, если l = atom то всё, если нет, то делать ('nod (l (cdr l)))
 
 
)
(defun nod (l1 l2)
(mapcar 'nod_step l1 l2)
)

love5an

Members


Статус

25 сообщений

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

#801   2009-12-21 18:36 GMT+3 часа(ов)      
> 1 <


Онлайн :

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




Реклама на сайте: