[Shiromi]

Здравствуйте, только начал изучать лисп и встал о задачку, перебрал кучу вариантов, даже не знаю какой приложить . Звучит она следующим образом :написать функцию , которая объединяет 2 списка таким образом , что
Вход (1 2 3 4 5) (4 5 6 7 8)
Выход (1 2 3 4 5 6 7 8) .
Использовать можно только базовый функционал. Т.е нельзя операторы циклов,функции прямого доступа к элементам список и т. д.

Заранее спасибо

Код:
(defun lsp(x y)
((null x)y)
((null y)x)
((member(car x)y)x)
(t(lsp(cdr x) y ))))

[Pilot]

Сообщение от Shiromi Использовать можно только базовый функционал. Т.е нельзя операторы циклов,функции прямого доступа к элементам список и т. д.

А разве циклы не относятся к базовому функционалу?

Я так делал:
Пусть есть 2 списка:
(setq l1 (list 1 2 3 4 5))
(setq l2 (list 4 5 6 7 8))

Код:

[Выделить все]

 (defun ListAppend (l1 l2 / l3 v1)
(foreach v1 (append l1 l2) (if (not (member v1 l3))(setq l3 (cons v1 l3))))
(reverse l3))

[Shiromi]

Сообщение от Pilot А разве циклы не относятся к базовому функционалу? Я так делал: Пусть есть 2 списка: (setq l1 (list 1 2 3 4 5)) (setq l2 (list 4 5 6 7 8)) Код: [Выделить все] (defun ListAppend (l1 l2 / l3 v1) (foreach v1 (append l1 l2) (if (not (member v1 l3))(setq l3 (cons v1 l3)))) (reverse l3))

Хм, я не совсем верно выразился. Можно использовать только eq eql или member. То ,что заменяет базовые if else.

[Кулик Алексей aka kpblc]

Offtop: Что за диалект лиспа?