РебенокЛевый Родитель РебенокПравый

@PetrovP · Регистрация: 17.12.2015

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

Дано S-выражение, представляющее дерево вида «(РебенокЛевый Родитель РебенокПравый)» с числами в качестве вершин, причём дерево упорядочено по возрастанию. Определить функцию, изменяющую направление упорядочивания этого дерева.
Например: если дано "(((nil 1 nil) 5 (nil 7 nil)) 10 (nil 15 (nil 16 nil)))", ответом будет "(((nil 16 nil) 15 nil) 10 ((nil 7 nil) 5 (nil 1 nil)))".
Спасибо!

@Catstail · 23.03.2016, 12:50

Lisp

(defun swap-tree (tree)
  (cond ((null tree) nil)
        (t (list (swap-tree (caddr tree)) (cadr tree) (swap-tree (car tree))))))
 
==> swap-tree
 
(swap-tree '(((nil 1 nil) 5 (nil 7 nil)) 10 (nil 15 (nil 16 nil))))
 
==> (((NIL 16 NIL) 15 NIL) 10 ((NIL 7 NIL) 5 (NIL 1 NIL)))

@PetrovP 2 / 2 / 0 Регистрация: 17.12.2015 Сообщений: 20
		1
	РебенокЛевый Родитель РебенокПравый 23.03.2016, 00:29. Показов 791. Ответов 1 Метки нет (Все метки) Дано S-выражение, представляющее дерево вида «(РебенокЛевый Родитель РебенокПравый)» с числами в качестве вершин, причём дерево упорядочено по возрастанию. Определить функцию, изменяющую направление упорядочивания этого дерева. Например: если дано "(((nil 1 nil) 5 (nil 7 nil)) 10 (nil 15 (nil 16 nil)))", ответом будет "(((nil 16 nil) 15 nil) 10 ((nil 7 nil) 5 (nil 1 nil)))". Спасибо! 0

	23.03.2016, 12:50