Lec8

ДЕЯКІ КЛАСИЧНІ АЛГОРИТМИ ТА ЇХ РЕАЛІЗАЦІЯ

Бінарні дерева пошуку (Корінь (Ліве-піддерево Праве-піддерево))

Бінарні дерева пошуку (Корінь Ліве-піддерево Праве-піддерево)

Бінарні дерева пошуку (Корінь . (Ліве-піддерево . Праве-піддерево))

Бінарні дерева пошуку (defun insel (n tree) (cond ((null tree) (cons n nil)) ((> n (car tree)) (cons (car tree) (cons (cadr tree) (insel n (cddr tree))))) (t (cons (car tree) (cons (insel n (cadr tree)) (cddr tree)))) ))

Бінарні дерева пошуку > (setq tr (insel 5 nil)) (5) > (setq tr (insel 3 tr)) (5 (3)) > (setq tr (insel 1 tr)) (5 (3 (1))) > (setq tr (insel 4 tr)) (5 (3 (1) 4)) > (setq tr (insel 7 tr)) (5 (3 (1) 4) 7) > (setq tr (insel 6 tr)) (5 (3 (1) 4) 7 (6)) > (setq tr (insel 13 tr)) (5 (3 (1) 4) 7 (6) 13) > (setq tr (insel 15 tr)) (5 (3 (1) 4) 7 (6) 13 NIL 15) > (setq tr (insel 11 tr)) (5 (3 (1) 4) 7 (6) 13 (11) 15) > (setq tr (insel 17 tr)) (5 (3 (1) 4) 7 (6) 13 (11) 15 NIL 17) 5 3 1 4 7 6 13 15 11 17

Бінарні дерева пошуку (defun pud (tree) (cond ((null tree)) (t (format t "~d " (car tree)) (pud (cadr tree)) (pud (cddr tree)) )) ) >(pud tr) 5 3 1 4 7 6 13 11 15 17 T

Бінарні дерева пошуку (defun plr (tree) (cond ((null tree)) (t (plr (cadr tree)) (format t "~d " (car tree)) (plr (cddr tree)) )) ) >(plr tr) 1 3 4 5 6 7 1 1 1 3 15 17 T

Графи G=(V,E ) V – множина вершин графу Е – множина ребер графу е і =( v k , v l ) – v k та v l Є V Порядок графу Суміжні вершини та ребра Шлях у графі – ( v 1 ,v 2 ) (v 2 ,v 3 )…(v k+1 ,v k ) Довжина Цикл Зв ’ язаний граф Відстань між вершинами U та V Остове дерево графу

Графи + “ чи існує ребро з i в j ? ” - один крок - розмір пам ’ яті NxN G граф порядку N, V={1,2,…,N} Матриця суміжності B = [B ij ] NxN. B ij =1 або Bij = 0

Графи ((0 1 1 0) (0 0 1 0) (0 0 0 1) (1 0 0 0))

Графи >(neighbour1 2 '((0 1 1 0)(0 0 1 0)(0 0 0 1)(1 0 0 0))) (3) >(neighbour1 4 '((0 1 1 0)(0 0 1 0)(0 0 0 1)(1 0 0 0))) (1) >(neighbour1 1 '((0 1 1 0)(0 0 1 0)(0 0 0 1)(1 0 0 0))) (2 3) (defun neighbour1 (x graph) (neigb1 1 (nth (- x 1) graph))) (defun neigb1 (i lst) (cond ((null lst) nil) ((eql (car lst) 1) (cons i (neigb1 (+ i 1) (cdr lst)))) (t (neigb1 (+ i 1) (cdr lst))))

Графи (defun neighbour2 (x graph) (cond ((null graph) nil ) ((and (eq l (caar graph) x) (eq l (cdar graph)'false)) nil) ((eql (caar graph) x) ( cons (cdar graph) ( neighbour2 x (cdr graph))) ) ((eql(cdar graph) x) ( cons (caar graph) (neighbour2 x (cdr graph))) ) (t (neighbour2 x (cdr graph)))))

Графи >(neighbour2 2 '((1 . 2) (1 . 3) (2 . 3) (5 . false))) (1 3) >(neighbour2 1 '((1 . 2) (1 . 3) (2 . 3) (5 . false))) (2 3) >(neighbour2 5 '((1 . 2) (1 . 3) (2 . 3) (5 . false))) nil

Графи (defun main (x graph) (list-set (neighbour2 x graph)) ) (defun list-set (lst) (cond ((null lst) nil ) ((member (car lst) (cdr lst)) (list-set (cdr lst)) ) (t (cons (car lst) (list-set (cdr lst))) ) ))

Графи > (main 2 '((1 . 2) (1 . 3) (2 . 3) (2 . 1) (3 . 1) (3 . 2) (5 . false))) (1 3) > (main 1 '((1 . 2) (1 . 3) (2 . 3) (2 . 1) (3 . 1) (3 . 2) (5 . false))) (2 3) > main 5 '((1 . 2) (1 . 3) (2 . 3) (2 . 1) (3 . 1) (3 . 2) (5 . false))) NIL

Графи (defun neighbour3 (x graph) (cond ( (null (assoc x graph)) nil ) ( t (cdr (assoc x graph)) ) ) > (neighbour3 2 ' ((1 . (2 3 4)) (2 . (1 3)) (3 . (1 2)) (4 . (1)))) (1 3) > (neighbour3 1 ' ((1 . (2 3 4)) (2 . (1 3)) (3 . (1 2)) (4 . (1)))) (2 3 4) > (neighbour3 3 ' ((1 . (2 3 4)) (2 . (1 3)) (3 . (1 2)) (4 . (1)))) (1 2)

Графи (defun depthfirst graph root) (cond ((null graph) nil ) (t (defi graph (list root) (list root))))) (defun defi (graph visited path) (cond ((null path) (reverse visited) ) (t(cond ((null (expnd graph visited (car path))) (defi graph visited(cdr path)) ) (t(defi graph (cons (expnd graph visited(car path))visited) (cons (expnd graph visited(car path)) path)) )) )))

Графи (defun expnd (graph visited vertex) (cond ((null (neighbour3 vertex graph)) nil ) (t (firstnotvisited visited (neighbour3 vertex graph)))) (defun firstnotvisited (visited vlist) (cond ((null vlist) nil ) (t(cond ((null (member (car vli st) visited)) (car vlist)) (t (firstnotvisited visited(cdr vlist)) ))))

Графи > (depthfirst '((1 . (2 3 4)) (2 . (3)) (3 . (4))) 1) (1 2 3 4) > (depthfirst '((1 . (2 3 4)) (2 . (3)) (3 . (4))) 2) (2 3 4) > (depthfirst '((1 . (2 3 4)) (2 . (3)) (3 . (4))) 3) (3 4) > > (depthfirst '((1 . (2 3 4)) (2 . (3 1)) (3 . (4))) 2) (2 3 4 1)

Графи > (depthfirst '((1 . (2 3)) (2 . (4 5)) (3 . (6 7))) 1 ) (1 2 4 5 3 6 7)

Lec8

More Related Content

What's hot (16)

Similar to Lec8 (7)

Lec8