логичко - 7 (Генерирај)

(defun pom (tekovno lista1 lista2 konecna brojac)
    (cond
        ((null lista1) konecna)
        ((null tekovno)(pom (car (cdr lista1)) (cdr lista1) lista2 (append konecna (list brojac))(+ 1 brojac)))
        ((member (car tekovno) lista2)(pom (cdr tekovno) lista1 lista2 konecna brojac))
        ((not(member(car tekovno) lista2))(pom (cadr lista1) (cdr lista1) lista2 konecna (+ 1 brojac)))
        )
    )

(defun generiraj (l1 l2)
    (pom (car l1) l1 l2 '() 1)
    )

(print (generiraj '((3 10)(2 3 6)(7 12)(1 3)(4 1 2 7)(6 7 9))'(3 2 6 1 9 7)))
;izlez (2 4 6)