> 1 <

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

D.o.c.t.o.r

Members


Статус

1 сообщений

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

#4481   2011-06-28 23:23 GMT+3 часа(ов)      
Добрый вечер! Требуется переделать программу, объединяющую два множества l1 и l2, в функциональный стиль
(set 'y '(2 3 4))
(defun conc (l1 l2)
(cond
((null l1) nil)
(t
(cond
( (null (subfunc (car l1) l2))
(set 'y (cons y (car l1)))
)
)
(conc (cdr l1) l2)
)
)
(print y)
)

l1, к примеру, (1 2 3), а l2 - (2 3 4)
> 1 <


Онлайн :

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




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