Есть вершины графа (a b c d e f). Построить через них цепь (ab) (bc) (cd) (de) (ef)

@Sergzzz · Регистрация: 12.11.2013

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

Помогите с решением задачи.
Есть вершины графа (a b c d e f). Построить через них цепь ((ab) (bc) (cd) (de) (ef)).

@Catstail · 12.11.2013, 11:57

т.е. просто объединить в пары?

Lisp

(defun mk-chain (lst)
  (cond ((null (cdr lst)) nil)
        (t (cons (list (car lst) (cadr lst)) (mk-chain (cdr lst))))))
 
==> mk-chain
 
(mk-chain '(a b c d e f))
 
==> ((a b) (b c) (c d) (d e) (e f))

@Sergzzz · 12.11.2013, 12:06 **[ТС]**

Catstail, спасибо.

@Sergzzz 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 6
		1
	Есть вершины графа (a b c d e f). Построить через них цепь (ab) (bc) (cd) (de) (ef) 12.11.2013, 11:54. Показов 1491. Ответов 2 Метки нет (Все метки) Помогите с решением задачи. Есть вершины графа (a b c d e f). Построить через них цепь ((ab) (bc) (cd) (de) (ef)). 0

@Sergzzz 0 / 0 / 0 Регистрация: 12.11.2013 Сообщений: 6
	12.11.2013, 12:06 [ТС]	3
	Catstail, спасибо. 0