простые рекурсивные функции для обработки списков

@joker13234 · Регистрация: 26.12.2012

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

определить рекурсивные функции в соответствии с номером варианта.
В данном задании все операции над списками выполняются только с элементами верхнего уровня, хотя списки могут содержать подсписки.
Рекурсия выполняется только в направлении CDR списка.
а) (SET1 x) удаляет из списка x повторяющиеся элементы на верхнем уровне. Например:
> (SET1 '((a b) c d (a b) c e))
(D (A B) C E)

б) (sum3 n m x) суммирует элементы одноуровнего числового списка x, расположенные на позициях от n до m включительно (n<m).

@_sg · 27.12.2012, 17:40

Lisp

(defun -member (a w)
    (cond ((null w) nil)
    ((equalp a (car w)) (cons (car w) (cdr w)))
    ((-member a (cdr w)))))
 
(defun sine-twins (w)
  (cond ((null w) nil)
        ((-member (car w) (cdr w)) (sine-twins (cdr w)))
        ((cons (car w) (sine-twins (cdr w))))))
 
> (sine-twins '((a b) c d (a b) c e))
(D (A B) C E)

Добавлено через 4 минуты

Lisp

(defun sum-sequence (n m w)
  (reduce #'+ (subseq w n (1+ m))))
 
> (sum-sequence 3 5 '(1 2 3 4 5 6 7))
15

Добавлено через 1 минуту
или:

Lisp

(defun sum-sequence (n m w)
  (reduce #'+ (subseq w (1- n) m)))
 
> (sum-sequence 3 5 '(1 2 3 4 5 6 7))
12

Добавлено через 16 минут

Lisp

(defun sum-sequence (w n m)
  (cond ((= m 0) 0)
        ((= n 1) (+ (car w) (sum-sequence (cdr w) n (1- m))))
        ((sum-sequence (cdr w) (1- n) (1- m)))))
 
> (sum-sequence '(1 2 3 4 5 6 7) 3 5)
12

@Catstail · 28.12.2012, 10:23

1)

Lisp

(defun del-dup (lst &optional r f)
  (cond ((null f) (del-dup (reverse lst) nil t))
        ((null lst) r)
        ((not (member (car lst) r)) (del-dup (cdr lst) (cons (car lst) r) t))
        (t (del-dup (cdr lst)  r t))))
 
  
 
==> del-dup
 
(del-dup '((a b) c d (a b) c e))
 
==> (d (a b) c e)

Добавлено через 9 минут
2)

Lisp

(defun sum3 (n m lst)
  (let ((c 0))
       (apply '+ (mapcar #'(lambda (x) (setq c (+ 1 c)) (if (and (>= c n) (<= c m)) x 0) ) lst))))
 
==> sum3
 
(sum3 3 5 '(1 2 3 4 5 6 7))
 
==> 12

@joker13234 0 / 0 / 0 Регистрация: 26.12.2012 Сообщений: 25
		1
	простые рекурсивные функции для обработки списков 27.12.2012, 16:59. Показов 2163. Ответов 2 Метки нет (Все метки) определить рекурсивные функции в соответствии с номером варианта. В данном задании все операции над списками выполняются только с элементами верхнего уровня, хотя списки могут содержать подсписки. Рекурсия выполняется только в направлении CDR списка. а) (SET1 x) удаляет из списка x повторяющиеся элементы на верхнем уровне. Например: > (SET1 '((a b) c d (a b) c e)) (D (A B) C E) б) (sum3 n m x) суммирует элементы одноуровнего числового списка x, расположенные на позициях от n до m включительно (n<m). 0

	28.12.2012, 10:23