;-----------------Prsten---------------------------

(defun nastavi-put (lp put potomci)
	(cond ((null potomci) lp)
	((member (car potomci) put :test 'equal) (nastavi-put lp put (cdr potomci)))
	(t (nastavi-put (cons (append put (list (car potomci))) lp) put (cdr potomci)))))

(defun imaRupu (tmp put polje)
	(if (null tmp) t
		(let
			((lista (append (caddr (assoc (cadar tmp) (cadr (assoc (caar tmp) polje) ))) put) ))

			(if (eq 2 (- (length lista) (length (remove-duplicates lista :test 'equal)) ))
				(imaRupu (cdr tmp) put polje) ))
	))

(defun a-zvezda (lp polje)
	(if (null (car lp)) '()
		(let ((zadnji (car (last (car lp)))) (potomci))
		(setq potomci (caddr (assoc (cadr zadnji) (cadr (assoc (car zadnji) polje)))))
		(if
			(and
				(>= (length (car lp)) 6)
				(member (caar lp) potomci :test 'equal)
				(imaRupu (car lp) (car lp) polje))

			(car lp)
			(a-zvezda (append (nastavi-put '() (car lp) (remove (caar lp) potomci)) (cdr lp)) polje)))))

;-----------------Prsten---------------------------