Поголем Помал

(defun presmetaj (lista elem1 elem2)
 (cond
  ((> elem1 elem2)(prvpogolem lista elem1 elem2 1))
  ((< elem1 elem2)(vtorpogolem lista elem1))
 )
)

(defun prvpogolem (lista elem1 elem2 brojac)
 (cond
  ((null lista) nil)
  ((or (eq (car lista) elem1)(eq (car lista) elem2))(cons brojac (prvpogolem (cdr lista) elem1 elem2 (+ 1 brojac))))
  (t (prvpogolem (cdr lista) elem1 elem2 (+ 1 brojac)))
 )
)

(defun vtorpogolem (lista elem1)
 (cond
  ((null lista) nil)
  (t (cons (stepfun 1 (car lista) elem1)(vtorpogolem (cdr lista) elem1)))
 )
)

(defun stepfun (rezultat element stepen)
 (cond
  ((eq stepen 0) rezultat)
  (t (stepfun (* rezultat element) element (- stepen 1)))
 )
)


(print (presmetaj '(1 2 1 3 6 1 4 2 9) 2 3))