dekartS - juni 2014 - grupa 1

 Дефинирај функција dekartS која како аргументи прима две множества A и B, и го
враќа Декартовиот производ B x A.
Пример: (dekartS '(a b c) '(1 2))  ((1 a)(1 b)(1 c)(2 a)(2 b)(2 c))

(defun dekartS (a b)
    (pom a b a)
    )

(defun pom (a b poma)
    (cond
        ((null b) nil)
        ((null poma)(pom a (cdr b) a))
        (t (cons (list (car b)(car poma))(pom a b (cdr poma))))

        )
    )

(print (dekartS '(a b c) '(1 2)))