Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Lisp] Помогите мнеее

Автор: mеat 20.5.2008, 20:17

в общем мне нужно сделать следующее:
Определить предикат, проверяющий идентичность структуры 2-х числовый списков, а так же все ли числа первого списка больше соответствующих чисел второго. Да, и все это должно работать с подсписками.
Я так понимаю тут нужна параллельная рекурсия.
Помогите мне пожалуйста.

Автор: mrco 21.5.2008, 15:20

Цитата(mеat @ 20.5.2008, 20:17

)

Я так понимаю тут нужна параллельная рекурсия

Какая-какая? По-моему и обычной хватит. Показываайте что у вас получается.

Автор: mеat 21.5.2008, 17:21

у меня ничего не получается, поэтому и прошу помочь

Автор: VH_ 26.5.2008, 16:48

Код


(defun F (L1 L2)
 (cond
  ((null L1) (null L2))
  ((atom (car L1))
   (and
    (atom (car L2))
    (> (car L1) (car L2))
    (F (cdr L1) (cdr L2))))
  (T
   (and
    (listp (car L2))
    (F (car L1) (car L2))
    (F (cdr L1) (cdr L2))))))

Автор: mеat 26.5.2008, 21:47

спасибо