> 1 <

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

rsast

Members


Статус

2 сообщений

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

#6199   2012-06-01 20:54 GMT+3 часа(ов)      
помогите решить две задачи на лиспе:1. Является ли данный список разложением числа в виде суммы.
2. Проверить, является ли один список декартовым произведением двух других.

rsast

Members


Статус

2 сообщений

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

#6200   2012-06-01 20:55 GMT+3 часа(ов)      
очень нужна ваша помощь,пожалуйста!!!

minobull

Members


Статус

8 сообщений

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

#6201   2012-06-02 08:23 GMT+3 часа(ов)      
Лиспы разные бывают. Да и набор функций учебного может сильно отличаться от "боевых".
На Common Lisp это выглядит так:

 
; Является ли данный список разложением числа в виде суммы
(defun sum-expan-p (num lst)
(eq (apply #'+ lst) num))
 
; Проверить, является ли один список декартовым произведением двух других
(defun same-decart-mul-p (x-set y-set mul-set)
(equal mul-set
(mapcan #'(lambda (x)
(mapcar #'(lambda (y)
(list x y)) y-set))
x-set)))
 
> 1 <


Онлайн :

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