Рекурсивный и итеррационный методы

@Makeavelee · Регистрация: 13.04.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте!

Помогите с 2мя программами.
1)Разработать итерационный вариант программы в императивном стиле для решения предложенной задачи.
В теле функций можно использовать только примитивы car, cdr, cons. Все остальные функции должны быть определены через эти примитивы.

Объединять два упорядоченных числовых списка без нарушения порядка.
>(name ‘(2 4 7 9 13 16) ‘( 2 5 6 11 12))

2) Сделать нужно рекурсивным и итерационным методом

Сумму разных элементов списка. >(name ‘(1 2 3 1 2 3))

Только начался LISP ничего не понимаю по нему ,помогите если не трудно.

@Catstail · 13.04.2012, 11:23

Ну, без cond вряд-ли удастся обойтись...
Вот рекурсивное решение первой задачи:

Lisp

(defun merge (x y) (cond ((null x) y)
                         ((null y) x)
                         (t (cond ((> (car x) (car y)) (cons (car y) (merge x (cdr y)))) 
                                  (t (cons (car x) (merge (cdr x) y)))))))
(merge '(1 2 3 4) '(1 5 6 7))
 
==> (1 1 2 3 4 5 6 7)

А что значит "сумма разных"? Чему должен быть равна сумма разных для списка (1 2 3 1 2 3)?

@Makeavelee · 13.04.2012, 14:06 **[ТС]**

А можно итерационное решение первой задачи , а во второй задачи нужно найти сумму разный чисел списка, ответ второй задачи 6.Помогите если не трудно

@bokunopico · 13.04.2012, 14:25

Lisp

(defun sum-list-iter (list)
  (iter (for i on list)
        (unless (member (car i) (cdr i)) (summing (car i)))))
 
(defun sum-list (list)
  (if list
      (let ((head (car list))
            (tail (cdr list)))
        (if (member head tail)
            (sum-list tail)
            (+ head (sum-list tail))))
      0))

@Catstail · 13.04.2012, 14:58

Вот рекурсивное решение 2-й задачи:

Lisp

(defun usum (x) (cond ((null x) 0)
                      ((memb (car x) (cdr x)) (usum (cdr x)))
                      (t (+ (car x) (usum (cdr x))))))
 
(usum '(1 2 3 1 2 3 1 2 3))
 
==> 6

Добавлено через 12 минут
А вот итерационное решение второй:

Lisp

(defun isum (x &aux sum a lst)
  (setq sum 0)
  (dolist (a x sum) 
     (cond ((not (memb a lst)) (progn (setq sum (+ a sum))
                                      (setq lst (cons a lst)))))))
 
(isum '(1 2 3 1 2 3))
 
==> 6

Правда, пришлось привлечь, progn и dolist.

Добавлено через 20 минут
А вот кондовое итерационное решение первой задачи:

Lisp

(defun imerge (x y) 
  (prog (cx cy res)
A   (cond ((null x) (return (append res y)))
          ((null y) (return (append res x))))
    (setq cx (car x))
    (setq cy (car y))
    (cond ((> cx cy) (prog nil (setq res (append res (list cy))) (setq y (cdr y))))
          ((> cy cx) (prog nil (setq res (append res (list cx))) (setq x (cdr x))))
          (t (prog nil (setq res (append res (list cx))) (setq x (cdr x))     
                       (setq res (append res (list cy))) (setq y (cdr y)))))
    (go A)
   )
)
 
(imerge '(1 2 3) '(1 7 8))
 
==> (1 1 2 3 7 8)

Здесь использована prog, go и append. Последняя достаточно легко выражается через cons, car и cdr.

@Makeavelee 0 / 0 / 0 Регистрация: 13.04.2012 Сообщений: 8
		1
	Рекурсивный и итеррационный методы 13.04.2012, 02:14. Показов 1388. Ответов 4 Метки нет (Все метки) Здравствуйте! Помогите с 2мя программами. 1)Разработать итерационный вариант программы в императивном стиле для решения предложенной задачи. В теле функций можно использовать только примитивы car, cdr, cons. Все остальные функции должны быть определены через эти примитивы. Объединять два упорядоченных числовых списка без нарушения порядка. >(name ‘(2 4 7 9 13 16) ‘( 2 5 6 11 12)) 2) Сделать нужно рекурсивным и итерационным методом Сумму разных элементов списка. >(name ‘(1 2 3 1 2 3)) Только начался LISP ничего не понимаю по нему ,помогите если не трудно. 0

@Makeavelee 0 / 0 / 0 Регистрация: 13.04.2012 Сообщений: 8
	13.04.2012, 14:06 [ТС]	3
	А можно итерационное решение первой задачи , а во второй задачи нужно найти сумму разный чисел списка, ответ второй задачи 6.Помогите если не трудно 0

	13.04.2012, 14:58