> 1 <

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

Alex111

Members


Статус

2 сообщений

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

#2002   2010-05-08 19:32 GMT+3 часа(ов)      
Нужно написать функцию (divis xy), которая возвращает частное и остаток от деления x на y. Не использовать функции деления.

VH

Members


Статус

289 сообщений

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

#2003   2010-05-08 21:14 GMT+3 часа(ов)      
Для неотрицательных целых чисел:
(defun DIVIS (X Y)
(cond
((zerop Y) nil)
((< X Y) (list 0 X))
(T
(mapcar '+
(DIVIS (- X Y) Y)
(list 1 0)))))

Alex111

Members


Статус

2 сообщений

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

#2021   2010-05-10 21:44 GMT+3 часа(ов)      
Спасибо.
> 1 <


Онлайн :

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